Registriert seit: 17. Sep 2006
Ort: Sonnensystem, Zentral
1.522 Beiträge
Delphi 5 Standard
|
Re: Mainform aus DLL laden?
13. Jan 2009, 11:43
Man könnte das Handle der App beim Aufrufen der DLL mit übergeben.
Quelle: Wiederverwenden von Formularen als DLLs
Zitat von Delphi Hilfe:
Beispiel
Das folgende Beispiel deklariert die Funktion GetPassword als eine Schnittstellenroutine. Die Export-Sektion schließt den GetPassword-Routinenamen ein, um sicherzustellen, daß die Funktion erfolgreich exportiert wurde.
Delphi-Quellcode:
unit PassForm;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Forms, Controls, Forms, Dialogs, StdCtrls, Buttons;
type
TPasswordForm = class(TForm)
... { hier stehen verschiedene Anweisungen }
end;
var
PasswordForm: TPasswordForm;
function GetPassword(APassword: Pchar; hAppHandle: Thandle): WordBool
exports GetPassword;
implementation
function GetPassword(APassword: Pchar; hAppHandle: Thandle): WordBool
begin
Application.Handle := hAppHandle; { Verbinden des DLL Application handle
mit dem ladenden Application handle }
PasswordForm := TPassWordForm.Create(Application);
try
if PasswordForm.ShowModal = mrOK then
begin
{Hier Quelltext, um die Werte der eingegebenen Paßworte zu überprüfen}
Result := True;
end;
finally
PasswordForm.Free;
end;
end;
end.
|
|
Zitat
|