請問各位大大
先前有發過文後來有得到jow大大給的範例

但是小弟想要改成動態的不知道要怎麼改???

這是DLL裡的語法

[code delphi]

library TestDll009;
...
...

uses
SysUtils,
Classes,
Forms,
fChild1 in 'UNIT\fChild1.pas' {frmChild1},
fChild2 in 'UNIT\fChild2.pas' {frmChild2};
{$R *.res}
function GetChildForm(MDIMainForm: TForm; AClassName: string; var f: TForm): Boolean;
var
I: Integer;
begin
f := nil;
for I := 0 to MDIMainForm.MDIChildCount-1 do
begin
if MDIMainForm.MDIChildren[I].ClassNameIs(AClassName) then
begin
f := MDIMainForm.MDIChildren[I];
Break;
end;
end;

if f = nil then
begin
if AClassName = 'TfrmChild1' then f := TfrmChild1.Create(MDIMainForm)
else
if AClassName = 'TfrmChild2' then f := TfrmChild2.Create(MDIMainForm)
end;
Result := f <> nil;

end;

exports GetChildForm;


[/code]


小弟都改不成功. ><"
一直報錯...

是DLL裡也要變動嗎??

這是MDI主FORM呼叫DLL的呼叫方式

[code delphi]

function GetChildForm(MDIMainForm: TForm; AClassName: string; var f: TForm): Boolean; external 'TestDll009.dll';

procedure TMainForm.DLL11Click(Sender: TObject);
var
f: TForm;
begin
if GetChildForm(Self,'TfrmChild1',f) then
begin
f.WindowState := wsMaximized;
f.BringToFront;
end;
MainMDIspeedButtonCheck;
end;

[/code]

編輯記錄

請參考這個網址
http://www.swissdelphicenter.ch/torry/showcode.php?id=1109

1.要先宣告一種funciton類別
2. 用LoadLiarary 取得 dll 的 handle
3. 用GetProcAddress取得dll handle 內 某個 function的位址並回傳到一個 函式類別的變數
4.使用該函式類別變數
5.用FreeLibrary 釋放 dll handle

type
TWTSRegisterSessionNotification = function(Wnd: HWND; dwFlags: DWORD): BOOL; stdcall;
var
hWTSapi32dll: THandle;
WTSRegisterSessionNotification: TWTSRegisterSessionNotification;
begin
Result := False;
hWTSAPI32DLL := LoadLibrary('Wtsapi32.dll');
if (hWTSAPI32DLL > 0) then
begin
try @WTSRegisterSessionNotification :=
GetProcAddress(hWTSAPI32DLL, 'WTSRegisterSessionNotification');
if Assigned(WTSRegisterSessionNotification) then
begin
Result:= WTSRegisterSessionNotification(Wnd, dwFlags);
end;
finally
if hWTSAPI32DLL > 0 then
FreeLibrary(hWTSAPI32DLL);
end;
end;
end;

感謝pprayer大大的回覆...

看了大大的範例..
小弟一直試不出來><" 唉...

請問大大能否將這個↓


[code delphi]

function GetChildForm(MDIMainForm: TForm; AClassName: string; var f: TForm): Boolean; external 'TestDll009.dll';

procedure TMainForm.DLL11Click(Sender: TObject);
var
f: TForm;
begin
if GetChildForm(Self,'TfrmChild1',f) then
begin
f.WindowState := wsMaximized;
f.BringToFront;
end;
MainMDIspeedButtonCheck;
end;

[/code]

改成動態呼叫的方式呢??


===================引 用 pprayer 文 章===================

請參考這個網址
http://www.swissdelphicenter.ch/torry/showcode.php?id=1109

1.要先宣告一種funciton類別
2. 用LoadLiarary 取得 dll 的 handle
3. 用GetProcAddress取得dll handle 內 某個 function的位址並回傳到一個 函式類別的變數
4.使用該函式類別變數
5.用FreeLibrary 釋放 dll handle

[code delphi]

type
TWTSRegisterSessionNotification = function(Wnd: HWND; dwFlags: DWORD): BOOL; stdcall;
var
hWTSapi32dll: THandle;
WTSRegisterSessionNotification: TWTSRegisterSessionNotification;
begin
Result := False;
hWTSAPI32DLL := LoadLibrary('Wtsapi32.dll');
if (hWTSAPI32DLL > 0) then
begin
try @WTSRegisterSessionNotification :=
GetProcAddress(hWTSAPI32DLL, 'WTSRegisterSessionNotification');
if Assigned(WTSRegisterSessionNotification) then
begin
Result:= WTSRegisterSessionNotification(Wnd, dwFlags);
end;
finally
if hWTSAPI32DLL > 0 then
FreeLibrary(hWTSAPI32DLL);
end;
end;
end;

[/code]

編輯記錄

請問有那位好心的大大能指點小弟呢??

或是能給小弟範例看看!!

就是呼叫相同的DLL
但是一個是用動態的另一個是用靜態的!!
(希望能以我PO的範例來改 ^^")

編輯記錄