Zitat von
shmia:
PS: so klappt auch mit dem Nachbarn:
Delphi-Quellcode:
function FileExists(const FileName: string): Boolean;
var
Attr: Cardinal;
begin
Attr := GetFileAttributes(Pointer(Filename));
Result := (Attr <> $FFFFFFFF) and (Attr and FILE_ATTRIBUTE_DIRECTORY = 0);
end;
Und das ist auch noch um einiges schneller als die Delphi 1-2005 Implementierung von FileExists. (
BDS 2006 nutzt auch GetFileAttributes).