Kod: Tümünü seç
var
OpStruc: TSHFileOpStruct;
frombuf, tobuf: Array [0..128] of Char;
begin
fillChar( OpStruc, Sizeof(OpStruc), 0 );
FillChar( frombuf, Sizeof(frombuf), 0 );
FillChar( tobuf, Sizeof(tobuf), 0 );
StrPCopy( frombuf,'C:\UsbAnahtar\Data' );
StrPCopy( tobuf, edit7.text+'UsbAnahtar\Data\Database.ini' );
With OpStruc DO Begin
Wnd:= Handle;
wFunc:= FO_COPY;
pFrom:= @frombuf;
pTo:=@tobuf;
fFlags:= FOF_NOCONFIRMATION ;//or FOF_RENAMEONCOLLISION YAZARSAN KOPYAYI TEKRARLAR;
end;
ShFileOperation( OpStruc );
end;