bu kod sorunsuz calisiyor:
function SHCopyFile(hWndOwner: HWND; const SourceFile, TargetFile: string): Boolean;
var Info: TSHFileOpStruct;
begin
FillChar(Info, SizeOf(TSHFileOpStruct), #0);
with Info do begin
Wnd := hWndOwner;
wFunc := FO_COPY;
fFlags := FOF_ALLOWUNDO;
hNameMappings := nil;
pFrom := PChar(SourceFile + #0 + #0);
pTo := PChar(TargetFile + #0 + #0);
end;
Result := ShFileOperation(Info) = 0;
end;
birden cok dosyayi ayni anda kopyalamak icin kullanabilirsiniz.
kolay gelsin.
|