Delphi DLL에서 창 캡슐화(EXE를 DLL로 변환)-2

1. 프로젝트 파일(.DPR)을 열고 단원의 밑에 있는 begin과 end를 삭제합니다.사이의 모든 문구(일반적으로 이러한 문구는 Delphi에서 자동으로 생성됨).
 
2. 헤더 프로그램 형식을 변경하고 프로그램을library로 변경합니다
 
3. 단원 밑에 있는begin 문장 전에 자신이 정의한 다른 함수나 과정을 추가하여 출력에 사용할 수 있다.주 창의 출력 함수 추가하기
 
library Mydll;
uses
SysUtils,   //     
Classes,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
//---------------------------------------------------    
procedure ShowForm; stdcall;
var
Form1:TForm1;
begin
Form1 := TForm1.Create(nil);
Form1.ShowModal;
FreeAndNil(Form1);
end;
exports
ShowForm;                     //      
//----------------------------------------------------    
begin
end.

 
3. 메인 창에서 DLL 호출
//++++++++++++++++++++++++++++++++++++++++++++++
//              
//+++++++++++++++++++++++++++++++++++++++++++++++
unit Unit2;
interface
uses
type
var
Form2: TForm2;
procedure ShowForm; stdcall; external 'Mydll.dll';  //  mydll.dll
implementation
{$R *.dfm}

좋은 웹페이지 즐겨찾기