statischer DLL-Aufruf bedingt aufrufen

[Helmi]

Hallo,

mittels:

Delphi-Quellcode:

function GetFileVersion(const FileName: ShortString): ShortString; stdcall;
  external 'Functions.dll';

ruf ich die Function "GetfileVersion" statisch aus der Function.dll aus.

Ist es möglich zu prüfen, ob die DLL überhaupt vorhanden ist bevor ich diesen statischen Aufruf mache, oder muss geht das nur beim dynamischen Aufruf?

[mkinzler]

Das geht nur beim dynamischen Aufruf.

[Luckie]

Nein. Wird die Funktion statisch eingebunden, wird beim Linken die DLL in die Importtabelle eingetragen.

[Helmi]

oki

Danke!

Das heisst ich muss jetzt nur noch suchen wie man ne dll dynamisch aufruft

[mkinzler]

Z.B. LoadLibrary

[Luckie]

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;

[Helmi]

Danke Luckie!!