mahlzeit...
ich versuche grad die sache mit den
DLL's näher zuverstehen. das tut von assabard ist mir schon wieder zu tiefgründig, deshalb habe ich es erstmal beiseite gelegt.
also ich habe eine
DLL da steht drin:
Delphi-Quellcode:
library FirstDll;
uses
SysUtils,
Dialogs,
Classes;
{$R *.res}
procedure Hinweis;
begin
showmessage('
Procedure aus DLL');
end;
exports
Hinweis;
begin
end.
und in meinem aufrufenden programm steht:
Delphi-Quellcode:
type TTestFunktion =
procedure;
procedure TForm1.Button1Click(Sender: TObject);
var TestFunktion : TTestFunktion;
FuncPtr : TFarProc;
DLLHandle : THandle;
begin
DLLHandle := LoadLibrary(PChar('
FirstDll.dll'));
FuncPtr := GetProcAddress(DLLHandle,'
Hinweis');
if FuncPtr <>
nil then begin
@TestFunktion := FuncPtr;
FuncPtr:=nil;
end else showMessage('
Funktion oder DLL nicht gefunden!');
FreeLibrary(DLLHandle);
end;
ich bekomme aber weder die meldung das die
dll nicht gefunden wurde noch das showmessage daraus. es passiert einfach nix noch nicht einmal eine
exception oder
av.