Hallo,
Formular wird aus der
DLL aufgerufen
Delphi-Quellcode:
Procedure Uebergabe;
var Uebergabe : TUebergabe;
BEGIN
Uebergabe := TUebergabe.Create(NIL);
Uebergabe.ShowModal;
Uebergabe.Free;
END;
Procedure des Hauptprogramms :
Delphi-Quellcode:
Procedure TForm1.zeige_DLL(Dateiname,
Name:
String);
var
DLL:TDLL;
Handle : THandle;
BEGIN
Handle := LoadLibrary(PCHAR(ExtractFilePath(ParamStr(0)) + '
\PlugIns\' + Dateiname));
IF Handle <> 0
THEN
BEGIN
@
DLL := GetProcAddress(
Handle, PCHAR(
Name));
IF @
DLL <>
NIL THEN DLL ELSE Showmessage('
Fehler beim Laden der Datei "'+Dateiname+'
"');
END;
FreeLibrary(
Handle);
EN
Aufruf der Procedure
Delphi-Quellcode:
procedure TForm1.bergabe1Click(Sender: TObject);
begin
Zeige_DLL('Preissuchmaschine.dll','Uebergabe');
end;
Der Aufruf selber funktioniert einwandfrei, aber das beenden geht leider nur manuell. Will es aber automatisch nach beenden der Procedure haben.
mfg
Tommy82