| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как запустить xcopy

PRM ©   (2004-11-19 13:41:00) 

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

---

PRM   (2004-11-19 15:22:00) [1]

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

---

PRM   (2004-11-19 14:38:00) [2]

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

---

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

Спасибо.

---

Ega23   (2004-11-19 13:45:00) [4]

//Эта функция запускает на выполнение программу и ждет когда она отработает
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;




---

Ega23   (2004-11-19 13:43:00) [5]


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   // Только активным пользователям БП
..........................


---

Наверх