Pfad prüfen - 32/64bit DLL

[KodeZwerg]

Hats geklappt?

edit
Vielleicht wäre es Sinnvoller seine Dlls umzubenennen um es dann vom OSVersion 32/64 abhängig zu machen?
Also xyz32.dll und xyz64.dll, beide in ein Verzeichnis, und per OS Abfrage die entsprechende laden lassen und später auch wieder freigeben, die Eigentlichen dll calls sollten ja gleich sein.
Ps: Bei dieser Methode, so glaube ich, sollte auch so etwas möglich sein - pseudo code

Delphi-Quellcode:

//da wo code initialisiert wird so etwas einfügen
if osversion = 64bit then {$define x64} else {$define x32}

//überall wo benötigt über ifdefs gehen, so in etwa
{$ifdef x32}
// 32bit code hier einfügen
{$endif}
{$ifdef x64}
// 64bit code hier einfügen
{$endif}

edit
nicht osversion, sowas hier meinte ich

Delphi-Quellcode:

class function TOSInfo.IsWOW64: Boolean;
type
  TIsWow64Process = function( // Type of IsWow64Process API fn
    Handle: THandle;
    var Res: BOOL
  ): BOOL; stdcall;
var
  IsWow64Result: BOOL;              // result from IsWow64Process
  IsWow64Process: TIsWow64Process;  // IsWow64Process fn reference
begin
  // Try to load required function from kernel32
  IsWow64Process := GetProcAddress(
    GetModuleHandle('kernel32'), 'IsWow64Process'
  );
  if Assigned(IsWow64Process) then
  begin
    // Function is implemented: call it
    if not IsWow64Process(GetCurrentProcess, IsWow64Result) then
      raise Exception.Create('Bad process handle');
    // Return result of function
    Result := IsWow64Result;
  end
  else
    // Function not implemented: can't be running on Wow64
    Result := False;
end;

damit ermitteln ob man im 64bit modus ist und dementsprechend die {$Define} parameter setzen.

[Alex_ITA01]

Danke, das hilft. Teste ich morgen früh gleich mal.

Ich hätte es mit der StringList so gelöst:

Delphi-Quellcode:

  sl := TStringlist.Create;
  try
    sl.Delimiter := ';';
    sl.StrictDelimiter := True;
    sl.DelimitedText := GetEnvironmentVariable('Path');

    for I := 0 to sl.Count -1 do
    begin
      //Pfad prüfen
    end;
  finally
    sl.clear;
    FreeAndNIL(SL);
  end;

[Dalai]

Ähm, es gibt auch PathFindOnPath, das die ganze Arbeit erledigt, die Verzeichnisse des %PATH% zu durchsuchen. Name der DLL übergeben und Rückgabe (bzw. den ersten Parameter) auswerten. Meine Wrapper-Funktion dafür:

Delphi-Quellcode:

function _PathFindOnPath(const AFile: string): string;
var LFile: array[0..MAX_PATH] of Char;
begin
    Result:= AFile;
    FillChar(LFile, SizeOf(LFile), #0);
    StrLCopy(LFile, PChar(AFile), MAX_PATH);
    if PathFindOnPath(LFile, nil) then
        Result:= StrPas(LFile);
end;

Grüße
Dalai

[Alex_ITA01]

Danke Dalai, kannte ich auch noch nicht

[CCRDude]

DLLs im System32-Verzeichnis halte ich für eine ganz schlechte Idee, spätestens wenn verschiedene Programmversionen verschiedene DLL-Versionen benötigen, fliegt einem das um die Ohren.

DLLs irgendwo im Pfad abzulegen sollte man eigentlich auch nicht mehr machen, bietet das doch einen guten Angriffsvektor für DLL injection, denn der Pfad aus dem Environment liegt an allerletzter Stelle, an der Windows schaut. Da würde ich das Konzept überdenken

Siehe auch SafeDllSearchMode. Wenn man die DLLs nicht im Programmverzeichnis ablegen kann, weil 32- und 64-bit Executables dort liegen, kann man auf SetDllDirectory zurückgreifen.

[Alex_ITA01]

Den Pfad der DLLs kann ich nicht ändern, diese werden durch eine Fremdanbieter-Software installiert und liegen da wo sie liegen.
Es wird nur entsprechend die %PATH% Variable durch die Fremdanbieter-Software angepasst, sodass ich bei 32 und 64bit jeweils die richtige DLL finde.

[himitsu]

Zitat von CCRDude:

spätestens wenn verschiedene Programmversionen verschiedene DLL-Versionen benötigen, fliegt einem das um die Ohren.

Dafür gibt es das Side-by-Side-Zeugs im Application Manifest, wo man angeben kann welche Version das Programm verwenden soll.

[CCRDude]

Zitat von himitsu:

Zitat von CCRDude:

spätestens wenn verschiedene Programmversionen verschiedene DLL-Versionen benötigen, fliegt einem das um die Ohren.

Dafür gibt es das Side-by-Side-Zeugs im Application Manifest, wo man angeben kann welche Version das Programm verwenden soll.

Hier geht es aber um dynamisches Laden der DLL, kein statisches linken

(ich muss aber zugeben, dass ich mich mit SxS bisher zuwenig beschäftigt habe... typische Windows-Ordner-DLLs wären ja z.B. die OpenSSL-DLLs... wo gleichzeitig aber Updates essentiell sind... kann das als "abhängig von Version x.y.z.* oder höher" definiert werden? Und was hat das genau mit dem System32-Ordner zu tun, SxS-Dateien liegen doch separat?)