Delphi Forum

Konuyu hortlattım ama lazım olur birilerine...
var
T:TSHFileOpStruct;

fillchar(T, sizeof(T), 0 );
with T do begin
Wnd:=0;
wFunc:=FO_DELETE;
pFrom := pchar(ExtractFilePath(Application.ExeName)+'Hedef Klasörün\'+'*.*' + #0);
fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
end;
SHFileOperation(T ...