// Es wird das Vorhandensein einer Datei oder eines Ordners mit dem gleichen
// Code geprüft. Man braucht sich also nicht mehr zwischen DirectoryExists und
// FileExists zu entscheiden (wenn man will).


// Getestet mit D4 unter XP
 

function Exists(const Name: string): Boolean; 
begin 
  Result := Integer(GetFileAttributes(PChar(Name))) <> -1; 
end; 
 
// sinnfreier Beispielaufruf 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if not Exists('C:\Temp\') and not Exists('C:\Test.bmp') 
    then showmessage('Nichts vorhanden'); 
end;