Auf Schreibrechte unter Win 7 prüfen

[AlexII]

Ich prüfe wie folgt auf Schreibrechte, unter Win XP klappt auch alles gut, aber unter Win 7 voll komisch. Im Verzeichnis C:\Programme wird mir gesagt, ja du kannst schreiben und bekommen die Meldung, dass test.txt erstellt wurde, aber in Wirklichkeit gibt's diese Datei nicht, sie wird nicht erstellt. Wie kann es sein das ich überall grünes licht habe? obwohl man in diesem Verzeichnis nicht schreiben kann. Bin auch nicht als Admin angemeldet.

Delphi-Quellcode:

function KannIchSchreiben(const FileName: String): Boolean;
var
  fileHandle: Integer;
begin
  fileHandle := FileOpen(FileName, fmOpenWrite);
  result := (fileHandle >= 0);
  if result then begin
    FileClose(fileHandle);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if KannIchSchreiben('test.txt') then showmessage('ja') else showmessage('nein');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Handle:Integer;
begin
  Handle:=filecreate('test.txt');
  if (Handle) > 0 then
  begin
    ShowMessage('Anlegen der Datei erfolgreich');
    FileClose(Handle);
  end
  else
  begin
    ShowMessage('Fehler beim Anlegen der Datei');
  end;
end;