Windows API Funktion um Befehlsziel zu ermitteln?

[Experience1986]

Ich hab nun eine selbst geschriebene Lösung. Das Ergebnis könnt ihr unter der folgenden Adresse bewundern:

http://www.delphi-forum.de/viewtopic...=363272#363272

[SirThornberry]

folgendes würde ich abwandeln von:

Delphi-Quellcode:

// Prüft ob ein Verzeichnis ODER eine Datei existiert    
function FileOrDirExists(Filename:TFilename):Boolean;
begin    
  Result:=(DirectoryExists(Filename) or Fileexists(Filename));
end;

nach

Delphi-Quellcode:

function FileOrDirExists(Filename:TFilename):Boolean;
var lSearchRec: TSearchRec;
begin
  if FindFirst(AFilename, faAnyFile, lSearchRec) = 0 then
  begin
    FindClose(lSearchRec);
    result := True;
  end
  else
    result := False;
end;

Grund: FileExists und DirectoryExists machen nichts anderes + das Prüfen ob es ein Verzeichnis oder eine Datei ist. Du rufst sozusagen 2 mal das gleiche auf.

[Experience1986]

Bist du dir sicher das genau das hinter FileExists/DirectoryExists steckt bzw. könnte etwas unerwartetes auftauchen oder etwas nicht mehr kompatibel sein, wenn ich deinen Code einsetze?

[SirThornberry]

DirectoryExists macht intern ein: GetFileAttributes
und FileExists macht intern ein: FileAge welches wiederum ein FindFirstFile macht.
Letztendlich kannst du dich als für eine der beiden Varianten entscheiden. Also ob du Generell mit GetFileAttributes oder mit FindFirstFile arbeiten willst.

GetFileAttributes gibt dir im Fehlerfall DWORD(-1) zurück.
Du kannst eigentlich auch auf folgende Weise überprüfen ob eine Datei oder ein Verzeichnis existiert:
result := GetFileAttributes(PChar(AFileName)) <> DWORD(-1); oder du prüfst eben mit FindFirstFile ob ein bestimmter Verzeichniseintrag vorhanden (wobei du das FindFirstFile-Handle mit FindClose wieder schließen musst)