Hallo,
Ich hoffe, mir kann jemand helfen.
Mein Problem ist folgendes. Ich suche nach einer Möglichkeit, herauszufinden, ob in einen angegebenen Ordner geschrieben werden kann. Also versuche ich per AssignFile eine Datei in dem Ordner anzulegen.
Delphi-Quellcode:
function TestWriteSuccess(Ordner: String) : Boolean;
var
F : TextFile;
tmp : integer;
FileAvail : Boolean;
const
Dateiname = 'test.tmp';
begin
result := true;
FileAvail := true;
AssignFile(F, Ordner + Dateiname);
{$I-}
ReWrite(F);
{$I+}
tmp := ioresult;
if tmp = 0 then
begin // erfolgreich
// Showmessage('Erfolgreich! ioresult='+inttostr(tmp));
Result := true;
CloseFile(F);
If FileExists(Ordner + Dateiname) then
begin
showmessage('Datei ' + Ordner + Dateiname + ' wurde erfolgreich angelegt und gefunden!');
DeleteFile(Ordner + Dateiname)
end
else
FileAvail := false;
end;
If ((tmp <> 0) or (FileAvail = false)) then
begin // nicht erfolgreich
// showmessage('Nicht erfolgreich! ioresult='+inttostr(tmp));
Showmessage('In den angegebenen Ordner "' + Ordner + '" kann die Software aufgrund eingeschränkter Zugriffsrechte nicht schreiben.');
Result := false;
end;
end;
Unter Windows XP wird mir das richtige IOResult der Rewrite() Funktion zurückgegeben, wenn ich z.B. versuche auf eine nicht beschreibbare DVD zu schreiben. Dies funktioniert auch unter Vista. Fast...
Versuche ich nämlich in den Programmordner zu schreiben, der mit eingeschaltetem
UAC für Programme ohne Adminrechte tabu ist, funktioniert die Routine nicht. Ich erhalte IOResult = 0, obwohl mir das Schreiben verwährt wird. Also dachte ich mir, teste ich mal mit FileExists(), ob die Datei auch wirklich vorhanden ist. Die Meldung wird eingeblendet, aber wenn ich bei eingeblendete Meldung in den Ordner schaue, ist keine Datei geschrieben worden.
Wie hängt das zusammen? Wie kann ich es trotzdem unter Vista kontrollieren. Ich will ja den Anwendern nicht die Auswahl "verbotener" Ordner erlauben....
Danke für jeden Hinweis.
Amigage