Moin,
kleinen Fehler gefunden mit ggf. Grosser Wirkung.
Delphi-Quellcode:
////////////////////////////////////////////////////////////////////////////////
// Procedure : DirectoryExists
// Comment : buggy
function DirectoryExists(const Directory: string): Boolean;
var
Code: Integer; // <--<< das wird nix da GetFileAttributes
// ein DWord (Cardinal) zurückgibt
begin
Code := GetFileAttributes(PChar(Directory)); // <--<<
Result := (Code <> -1) and (FILE_ATTRIBUTE_DIRECTORY and Code <> 0); // <--<< *)
end;
// *) dies wird nix, Vergleich ergibt immer wahr.
Delphi-Quellcode:
////////////////////////////////////////////////////////////////////////////////
// Procedure : DirectoryExists
// Comment : work
function DirectoryExists(const Directory: string): Boolean;
var
Code: Cardinal;
begin
Code := GetFileAttributes(PChar(Directory));
Result := (Code <> $FFFFFFFF) and (Code = FILE_ATTRIBUTE_DIRECTORY);
end;