procedure Tfrm_backup.BitBtn31Click(Sender: TObject);
var
kak, kak1,mysource,mypath : string;
begin
kak:=' use x: \\10.246.52.18\c$ password /USER:10.246.52.18
\username /PERSISTENT:no';
kak1:=' use x: /DELETE';
mysource:='\\10.246.52.18\c$\daten\*.* '; //leerzeichen nicht
vergessen
mypath:=mysource+ini_deftargetpath+'\aktuell\DL0A99\Daten\'+opt;
ShellExecute(Handle, 'Open', 'net', Pchar(kak),nil, SW_Hide);
ShellExecute(Handle, 'Open', 'xcopy', Pchar(mypath),nil,
SW_Normal);
ShellExecute(Handle, 'Open', 'net', Pchar(kak1),nil, SW_Hide);
end;
I would apprechiate if anybody could help me!
Reg
Harald