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;