RtlVclOptimize 2.77 - DelphiSpeedUp Code im eigenen Programm

[bigg]

Das WorkArround funktioniert bei mir nicht. Die Funktion Windows.GetLastError liefert bei mir den Wert 5 "Zugriff verweigert", wenn ich die "pagefile.sys" auf Existenz überprüfe.

So geht's:

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);
  end;
end;

Gruß Stefan