Einzelnen Beitrag anzeigen

DelphiManiac

Registriert seit: 5. Dez 2005
742 Beiträge
 
#8

Re: Ordner auf Schreibrechte prüfen

  Alt 1. Mär 2007, 09:29
Hi der Tipp mit dem Handle war super,

daran lag es nämlich, der Handle auf die Datei muss ja auch wieder freigeben werden, ansonsten hat meine Anwendung ja
die Datei in Zugriff.

Einfache Lösung hier war folgendes:

Delphi-Quellcode:
var
  Handle:Integer;
begin
  Handle:=filecreate('C:\TestOrdner\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;
  Mit Zitat antworten Zitat