Текущий архив: 2005.01.09;
Скачать: CL | DM;

Вниз

Как запустить xcopy   Найти похожие ветки 

← →
PRM   (2004-11-19 13:41) [0]

Как запустить команду xcopy и подождать пока она выполниться

---

← →
Ega23 ©   (2004-11-19 13:43) [1]


procedure TFSendMessage.bbOKClick(Sender: TObject);
var
i:Integer;
hnd:THandle;
ss:string;
const Command : String ="cmd /c net send ";

begin
..............

if AdditionalCompName<>"" then
 begin   // Дополнительная рассылка, возможно в весь домен
  ss:=Command+AdditionalCompName+" "+eMessText.Text+" "+SessInfo.PersNam;
  hnd:=winexec(PCHAR(ss), SW_HIDE);
  if hnd <= 32 then
   begin
    badsound;
    Exit;
   end;
 end
else
 begin   // Только активным пользователям БП
..........................


---

← →
Ega23 ©   (2004-11-19 13:45) [2]

//Эта функция запускает на выполнение программу и ждет когда она отработает
function Run_Programm(const CmdLine,WorkDir:String):boolean;
var
 SI:TStartupInfo;
 PI:TProcessInformation;
begin
ZeroMemory(@SI,SizeOf(SI));
SI.cb:=SizeOf(SI);
SI.dwFlags:=STARTF_USESHOWWINDOW;
SI.wShowWindow:=SW_HIDE;
Result:=CreateProcess(nil, PChar(CmdLine), nil, nil, false, 0, nil, PChar(WorkDir), SI, PI);
if Result then
begin
 CloseHandle(PI.hThread);
 WaitForSingleObject(PI.hProcess, INFINITE);
 CloseHandle(PI.hProcess)
end;
end;




---

← →
PRM   (2004-11-19 14:13) [3]

Спасибо.

---

← →
PRM   (2004-11-19 14:38) [4]

Пытаюсь запустить строку
WinExec("xcopy "C:\1\*.* "C:\2\"",SW_HIDE);
А она не копирует файлы

---

← →
PRM   (2004-11-19 15:22) [5]

Всё разобрался. Перезагрузил комп и заработало.

---

Страницы: 1 вся ветка

Текущий архив: 2005.01.09;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.113 c