Datei kopieren unter NT rechte ?!

[scrat1979]

Zitat von ghost007:

Macht nix, aber evtl kannste mir ja trotzdem weiterhelfen? ^^

MfG - Ghost007

Hmmm, hätte nur noch einen Lösungsvorschlag. Vor dem Kopieren der Datei kann damit geprüft werden, ob in das Zielverzeichnis geschrieben werden kann. Vielleicht hilft es Dir ja

Delphi-Quellcode:

Function DirWritable(DestDir : String) : Boolean;
var
 TestDatei : TFileStream;
Begin
  DestDir := IncludeTrailingPathDelimiter(DestDir); // '\' am Ende des Pfades sicherstellen...
  Result := False;
  Try
    TestDatei := TFileStream.Create(DestDir+'dummy.tmp', fmCreate);
    Result := True;
    TestDatei.Free;
    DeleteFile(DestDir+'dummy.tmp'); // Datei wieder löschen...
  Except
  End; {Try..Except}
End; { Function }

Aufruf z.B. mit

Delphi-Quellcode:

if DirWritable(Listbox1[5]) Then ShowMessage('Hier kann reingeschrieben werden!')
Else ShowMessage('Zugriff verweigert!');

Ungetestet. Vielleicht hilft Dir das aber etwas weiter...

SCRaT