LoadLibrary DLL Laden

[Alterauge]

Mit vollen Dateinamen meinst Du :

 sDLLPath := ExtractFileDir ('C:\OESoft\matrix32.dll')+ 'matrix32.dll';

PWideChar müssste wie aussehen?

[Morphie]

Such dir was aus...

Delphi-Quellcode:

procedure ImportDLL;
var
  hDLL: THandle;
  sDLLPath: string;
begin
  sDLLPath := 'C:\OESoft\matrix32.dll';
  hDLL := LoadLibrary(PWideChar(sDLLPath));
  if hDLL = 0 then
    ShowMessage('DLL konnte nicht geladen werden.')
  else
    ShowMessage('Alles ist Tutti!');
end;

Delphi-Quellcode:

procedure ImportDLL;
var
  hDLL: THandle;
begin
  hDLL := LoadLibrary('C:\OESoft\matrix32.dll');
  if hDLL = 0 then
    ShowMessage('DLL konnte nicht geladen werden.')
  else
    ShowMessage('Alles ist Tutti!');
end;

Delphi-Quellcode:

procedure ImportDLL;
var
  hDLL: THandle;
  sDLLPath: PWideChar;
begin
  sDLLPath := 'C:\OESoft\matrix32.dll';
  hDLL := LoadLibrary(sDLLPath);
  if hDLL = 0 then
    ShowMessage('DLL konnte nicht geladen werden.')
  else
    ShowMessage('Alles ist Tutti!');
end;

[Alterauge]

Hallo Morphie,
erstmal vielen Dank für Deine schnelle Hilfe!

Habe jetzt nur noch ein Problem, bekomme keine Meldung zurück?

Delphi-Quellcode:

 ShowMessage('DLL konnte nicht geladen werden.')
  else
    ShowMessage('Alles ist Tutti!');

[Morphie]

Wie du bekommst keine Meldung zurück? Wo rufst du die Prozedur denn auf?
Zeig am besten mal die komplette Unit, in der du die DLL aufrufen willst.

[Alterauge]

Hallo Morphie,
ist das erstemal, dass ich eine DLL einbinden möchte!

Das war alles an Quelltext bezüglich DLL, habe bestimmt was vergessen oder?

Hallo Günther,
ob eine ShowMessage am Anfang überhaupt funktioniert, weiß ich auch nicht?

[Morphie]

Du musst doch irgendwie die Prozedur "ImportDLL" aufrufen...
z.B. wenn du auf einen Button klickst oder so?

[Alterauge]

Hallo Morphie,

über einen Button geht es, mein Fehler!

DANKE!

[Der schöne Günther]

Ich wieß nicht, wie du deine Prozedur aufrufst, aber funktioniert ein bedingungsloses ShowMessage() am Anfang überhaupt?