Funktion aus DLL einbinden

[RandomDD]

Ich tu mich gerade ein bisschen schwer dabei, eine einzelne Funktion aus einer DLL in meine DPR-Datei einzubinden.
Ich benötige nur ShellExecute und möchte wirklich ungern die komplette ShellAPI einbinden.

Wie binde ich diese eine einzelne Funktion ein?

Das hier funktioniert nicht

Delphi-Quellcode:

{$R *.res}

function ShellExecute; external 'shell32.dll' name 'ShellExecuteA';

[Luckie]

Kurze Google oder Forensuche: https://www.delphi-treff.de/tutorial...pascal/dlls/6/

Oder: http://michael-puff.de/Programmierun...ch_laden.shtml

Delphi-Quellcode:

type
  TShellexecute = function(hWnd: HWND; Operation, FileName, Parameters,
    Directory: PChar; ShowCmd: Integer): HINST; stdcall;

procedure TForm1.Button1Click(Sender: TObject);
var
  hLib: cardinal;
  MyShellExecute: TShellexecute;
begin
  hLib := LoadLibrary('shell32.dll');
  if hLib <> 0 then
  begin
    @MyShellexecute := GetProcAddress(hLib, 'ShellExecuteA');
    if not Assigned(MyShellexecute) then
    begin
      RaiseLastOSError;
      exit;
    end;
  end
  else
  begin
    RaiseLastOSError;
    exit;
  end;
  MyShellexecute(Form1.Handle, 'open', 'Notepad.exe', nil, nil, SW_NORMAL);
end;

[hoika]

Hallo,
durch Einbinden einer Unit wird nicht die komplette Unit in die Exe reinkompiliert.
Der Linker schmeißt nicht benutzte Funktionen raus.

Der Code von Luckie ist natürlich trotzdem kleiner ...

[Neutral General]

Alternativ zu dem was Luckie gepostet hat (dynamische Bindung) gibt es noch die etwas weniger aufwendigere statische Bindung:

Delphi-Quellcode:

function Shellexecute(hWnd: HWND; Operation, FileName, Directory: PChar; ShowCmd: Integer): HINST; stdcall; external 'shell32.dll' name 'ShellExecuteA';

procedure TForm1.Button1Click(Sender: TObject);
begin
  Shellexecute(Form1.Handle, 'open', 'Notepad.exe', nil, nil, SW_NORMAL);
end;

[jaenicke]

Beide Quelltexte sind so nicht korrekt, da sie nicht unter allen Delphiversionen funktionieren.
Korrekt wäre:

Delphi-Quellcode:

{$IFDEF UNICODE}
function Shellexecute(hWnd: HWND; Operation, FileName, Directory: PWideChar; ShowCmd: Integer): HINST; stdcall; external 'shell32.dll' name 'ShellExecuteW';
{$ELSE}
function Shellexecute(hWnd: HWND; Operation, FileName, Directory: PAnsiChar; ShowCmd: Integer): HINST; stdcall; external 'shell32.dll' name 'ShellExecuteA';
{$ENDIF}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Shellexecute(Form1.Handle, 'open', 'Notepad.exe', nil, nil, SW_NORMAL);
end;

Denn PChar ist je nach Delphiversion PAnsiChar oder PWideChar. Deshalb ist es falsch den Metatyp PChar bei API-Deklarationen zu benutzen.

Wenn die oben geposteten Quelltexte unter Delphi 2009 oder höher benutzt würden, würde es einen Fehler geben, da nur das erste Zeichen an die Ansi-deklarierte Funktion übergeben würde.

[himitsu]

PChar darf man gern verwenden, wenn die "Funktion" wirklich dynamisch ist.

Delphi-Quellcode:

function Shellexecute(hWnd: HWND; Operation, FileName, Directory: PChar; ShowCmd: Integer): HINST; stdcall;
  external 'shell32.dll' name {$IFDEF UNICODE}'ShellExecuteW'{$ELSE}'ShellExecuteA'{$ENDIF};

Aber grundsätzlich stimmt es schon, bei den meisten WinAPIs -> xxxA mit PAnsiChar, xxxW mit PWideChar und xxx mit PChar (wird in den C++-Headern auch so gemacht und die Delphi-Headerübersetungen selber machen das auch schon länger so)

[Luckie]

Zitat von jaenicke:

Beide Quelltexte sind so nicht korrekt, da sie nicht unter allen Delphiversionen funktionieren.

Der Quellcode ist entstanden, als man bei Delphi noch nicht mal wusste, was Unicode überhaupt ist. Und etwas als falsch zu bezeichnen, weil der Code unter neuen Delphi Versionen so nicht mehr läuft, finde ich etwas dreist.