DLL prüfen

[Andreas L.]

Delphi-Quellcode:

function Isx64(const Strm: TStream): Boolean; overload;
begin
  // Original Funktion
end;

function Isx64(AFileName: String): Boolean; overload;
var
  FileStream: TFileStream;
begin
  Result := False;
  if not SysUtils.FileExists(AFileName) then
    Exit;

  FileStream := TFileStream.Create(AFileName, fmOpenRead);
  try
    Result := Isx64(FileStream);
  finally
    FreeAndNil(FileStream);
  end;
end;

Das overload ist wichtig wenn die Namen der Routinen gleich sein sollen.