[vadim-narochnyi]

Привет. Хочу перезагрузить exploler.exe

Код:

1 2	WinExec ('taskkill /f /im explorer.exe', sw_hide) WinExec ('explorer.exe', sw_hide);

первая команда убивает его, а вторая запускает, но они срабатывают одновременно. Как сделать чтобы сначала сработала первая, а потом вторая! Через условие, но как проверить строку на выполненность?
Спасибо! Жду ответа!

[Bargest]

Не знаю, где и как сейчас учат программированию, но вообще-то обычный процессор (который стоит в PC) никогда не выполняет инструкции одновременно (тем более функции). Выполняется сначала одна, потом другая. Всегда обе и всегда в том порядке, в каком они написаны. Другое дело, что TaskKill скорее всего не успеет выключить процесс. Решение "в лоб" - добавить между командами Sleep(N); где N - порядка 1000. Решение похитрее - ждать завершения работы TaskKill. А решение третье, ИМХО более адекватное - TerminateProcess. Правда тут надо уже уметь работать с WinAPI.

[icsander]

Ф-я dwExecAndWait запускает процесс и ждет его завершения (из dwUnits).
Используй вместо WinExec.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

procedure dwProcessMessages; var   Msg: TMsg; begin   while PeekMessage(Msg, GetCurrentProcess, 0, 0, PM_REMOVE) do     //if not IsDialogMessage(Dlg, Msg) then     begin       TranslateMessage(Msg);       DispatchMessage(Msg);     end; end;   procedure dwExecAndWait(const FileName, Params: String; const CmdShow: Integer); var   exInfo: TShellExecuteInfo;   Ph: DWORD; begin   FillChar(exInfo, SizeOf(exInfo), 0);   with exInfo do   begin     cbSize := SizeOf(exInfo);     fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_DDEWAIT;     Wnd := GetActiveWindow();     ExInfo.lpVerb := 'open';     ExInfo.lpParameters := PChar(Params);     lpFile := PChar(FileName);     nShow := CmdShow;   end;   if ShellExecuteEx(@exInfo) then     Ph := exInfo.HProcess   else   begin     ShowMessage(SysErrorMessage(GetLastError));     Exit;   end;   while WaitForSingleObject(ExInfo.hProcess, 50) <> WAIT_OBJECT_0 do     dwProcessMessages;   CloseHandle(Ph); end;

[vadim-narochnyi]

Да, пока ещё не учат, я сам пытаюсь разобраться, и не нужно глумиться, все мы чему-то учимся первый раз! Но за критику спасибо!

[Bargest]

Я не глумлюсь. Я просто считаю, что прежде чем браться писать программы (ну кроме разве что "Hello, world!"), нужно изучить устройство и принципы работы компьютера, хотя бы примерно. А то программирование может стать вида "Ну вот я написал такую строчку и подключил такой компонент, вот оно должно за меня все сделать", в то время как должно целиком и полностью состоять из осмысленных действий. Я исключительно доброжелателен.