Was für ein Windows, 32-Bit oder 64-Bit? Was für eine Anwendung, 32-Bit oder 64-Bit? Was für eine
DLL, 32-Bit oder 64-Bit? Und: "If the function fails, the return value is NULL. To get extended error information, call GetLastError."
Delphi-Quellcode:
DLLName := PAnsiChar(ExtractFilePath(Application. ExeName)+'SCANNDYDll.dll';
if FileExists(DLLName) then
begin
ShowMessage('Mich gibt es');
DLLHandle := LoadLibary(DLLName);
end else
begin
ShowMessage('Datei gibt es nicht');
DLLHandle := 0;
end;
Warum nicht gleich richtig:
Delphi-Quellcode:
if LoadLibrary(...) = 0 then
begin
ShowMessage(SysErrorMessage(GetLastError);
end
else
begin
...;
...;
end;
Dann weiß man auch WARUM es nicht funktioniert hat. Sonst fangen wir ja wieder an zu raten.