var
StartInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
begin
FillChar(StartInfo, SizeOf(StartInfo), 0);
if CreateProcessA(nil,'xcopy.exe f:\02.rm e:\',nil,
nil,false,32,nil,nil,StartInfo,ProcessInfo) then
begin
WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
MessageBox(0,'copy完成','info',MB_OK);