AProcess.Options + [poWaitOnExit]

[B4rr4cuda]

Ну, например, так:

Код: Выделить всё

while AProcess.Running do begin
  if application.terminated then
     Halt
  else
    Application.ProcessMessages;
end;


[vitaly_l]

  if application.terminated then Halt

Идея класная, но это: увы, к сожалению - не работает...
Должна же быть какая-то функция, типа: Крестик.onMouseDown... или Крестик.onClick... Или я чего-то непонимаю???
Как программисты отключили крестик??? Значит - есть функция... Спасите - помогите... ПОЖАЛУЙСТА <-- Волшебное слово .
Как крестик в системе называется???

[B4rr4cuda]

Как программисты отключили крестик???

OMFG

Как крестик в системе называется???

омфг. я так больше не могу, он взрывает мне мозг..

[Ism]

Ну коли речь пошла об извращениях можно при начале процесса устанавливать фокус на какойто кнопке , а при потере фокуса все рубить и закрывать приложение, про нажатии на кнопку закрытия фокус будет теряться и все сработает

[vitaly_l]

я так больше не могу, он взрывает мне мозг..

(Oh My Fucking God)... Извините ради Бога, уважаемый B4rr4cuda... Я не хотел взорвать Ваш мозг...

Ну коли речь пошла об извращениях можно при начале процесса устанавливать фокус на какойто кнопке

Я, примерно так, при помощи Esc - останавливаю процесс... Однако Ваш вариант сработает и при простом нажатии на форму...
Суть в том что, запускаются несколько процессов подряд и между ними можно прервать(при желании)...
Просто Halt делать нельзя, т.к. то что в Process - останется висеть в тасклисте и памяти... (очевидно поэтому отключили крестик)...

Вопрос остаётся в силе:
Как вызвать функции типа: "СистемныйКрестик".onMouseDown.?. или "СистемныйКрестик".onClick.?. (если такие есть)

.

[Ism]

В вашем случае проще запустить процесс и отцепить его от программы, то есть при дезактивации Tproocess процесс продолжит выполняться. А при закрытии программы убивать его консольной командой taskkill
Или сделать две программы , вторая будет управляться через pipe
Ну или TThread

[vitaly_l]

Ну или TThread

У TThread будут теже возможности, что и у TProcess: Какой смысл менять шило на мыло?? (кстати, там - тоже заблокируется крестик)...

запустить процесс и отцепить его от программы, то есть при дезактивации Tproocess процесс продолжит выполняться.

Это класс! Спасибо! Это мне подходит; т.к. прерывать процесс мне не нужно. (мне нужно прервать между процессами)
Как отцепить процес? Как называется функция? Ключевые слова для поиска какие?...

[Ism]

в windows я делаю "cmd /k "notepad" "
и тогда Tprocess.Active:=false процесс остается работать.

Добавлено спустя 12 минут 55 секунд:
Внимание, для Lazarus 0.9.30.4 fpc 2.6.0 делать так , старый метод через commandline не поддерживается, хотя и работает

Process1.Active:=false;
Process1.ShowWindow:=swoHIDE;
Process1.Executable:='cmd';
Process1.Parameters.Clear;
Process1.Parameters.Add('/k');
Process1.Parameters.Add('notepad.exe');
Process1.Execute;
Sleep(1000);
Process1.Active:=false;