LoadLibrary unter Windows 7

[ChrisE]

Zitat von trashcandesign:

Auch wenn ich sie ins SysWOW64 Verzeichnis lege ändert sich nichts.
Weder, wenn ich sie direkt aufrufen möchte, noch wenn ich gar keinen Pfad angebe...

Hmm, dass ist sehr merkwürdig. Es ist aber sicher kein schreibfehler`in dem DLL-Namen?
Kannst du mal folgendes Testen:

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;

Gruß, Chris

[Luckie]

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.

[ChrisE]

Zitat von Luckie:

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.

Weil wir diese aussage bereits hatten. GetLastError nach LoadLibrary liefert bereits 126 als Fehler zurück. Die Frage war wieso, den der TE versichert, dass die DLL da ist - dachte ich

Gruß, Chris

[trashcandesign]

Das ShowMessage zeigt mir den richtigen Pfad mit DLL an.
Also in dem Fall

c:\Programme (x86)\XXX\Scandydll.dll

[trashcandesign]

64 Bit Windows,
32 Bit Anwendung
32 Bit DLL

[trashcandesign]

Ich habe eine Zeile über den LoadLibrary ein FileExists und das gibt mir true zurück.
Deswegen bin ich mir ja eigentlich sicher, dass der Pfad richtig sein sollte

[ChrisE]

Zitat von trashcandesign:

c:\Programme (x86)\XXX\Scandydll.dll

Diesen Pfad gibt es nicht. Bist du dir siche, dass er so angezeigt wird? Und nicht als Program Files (x86)
Gruß, Chris

[samso]

Ich hätte da mal eine andere Idee. Ich weiß aber nicht, ob so etwas technisch möglich ist. Angenommenen die ScandyDll.dll will eine weitere DLL laden und findet diese nicht, würde dann die Fehlernummer 126 durchgereicht werden?

[Luckie]

Zitat:

C:\Dokumente und Einstellungen\Michael>net helpmsg 126

Das angegebene Modul wurde nicht gefunden.

Also wird da doch irgendwas nicht gefunden. Stimmt Groß- und Kleinschreibung vom DLL Namen?

[trashcandesign]

Natürlich wird "C:\Program Files (x86)\" angezeigt, du hast recht
Passiert, wenn man schnell dahin schreibt...

Ich habe jetzt mal genau deinen Code verwendet und ich bekomme auch die Meldung "Mich gibt es" und DLLHandle ist danach 0...