RtlVclOptimize 2.77 - DelphiSpeedUp Code im eigenen Programm

[bigg]

Dann verknüpfen wir das ganze mit or?

Delphi-Quellcode:

function MyFileExists(const Filename: string): Boolean;
var
  Code: Integer;
  LastError: Integer;
begin
  Code := Integer(Windows.GetFileAttributes(PChar(FileName)));
  if Code <> -1 then
    Result := (FILE_ATTRIBUTE_DIRECTORY and Code = 0)
  else
  begin
    LastError := Windows.GetLastError;
    Result    := (LastError = ERROR_ACCESS_DENIED) or (LastError = ERROR_SHARING_VIOLATION);
  end;
end;

ps: Bin mit Adminrechten unterwegs, WinXP SP2 und D7PE.


Gruß Stefan