Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.047 c
1-1103615593
race1
2004-12-21 10:53
2005.01.09
перенос


1-1102510660
Mishenka
2004-12-08 15:57
2005.01.09
Составной компонент


9-1095050166
NikeOLD
2004-09-13 08:36
2005.01.09
Деформация 3D объектов


1-1103739456
Shamansky
2004-12-22 21:17
2005.01.09
Работа с каталогами


1-1103667920
AlexLine
2004-12-22 01:25
2005.01.09
Как изменить координаты появления Hint