IOResult und FileExists bei UAC unter Vista fehlerhaft?

[amigage]

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