Hallo,
ich will mit meinem programm dateien unter NT kopieren.
Ich bin als admin auf dem rechner angemeldet, jedoch gibt es einige ordner, in die nur die user reindürfen.
Nun meine frage:
Kann ich die rechte irgendwie erwerden? (ich will nichts verändern sondern nur was kopieren)
oder
Kann ich irgendwie feststellen ob ich (als admin) für den ordner x genügend rechte hab um ihn kopieren zu können?
MfG - Ghost007
P.S.:
zum kopieren verwende ich folgende funktion:
Delphi-Quellcode:
procedure TForm1.CopyFile(filepath, destination :string);
var
f,t:file of byte;
buf:array[1..4096] of byte;
read:integer;
begin
assignfile(f,filepath);
assignfile(t,destination);
reset(f);
rewrite(t);
while not eof(f) do begin
blockread(f,buf,length(buf),read);
blockwrite(t,buf,read);
ProgressBar1.position:=round(100*filesize(t)/filesize(f));
application.processmessages;
end;
closefile(f);
closefile(t);
end;
//Edit:
Kann ich durch
Delphi-Quellcode:
try
assignfile(f,filepath);
except
//keine rechte
end;
oder so des irgendwie testen?