Кнопка Button

[zzzetka]

Здравствуйте! Скажи пожалуйста, как сделать так, чтобы по нажатию кнопки Button вся программа запускалась заново?

[Grag]

Если в программе нет блокировки запуска копии, то ShellExecute()....

[zzzetka]

А в скобках что писать? Название программы? Или что?

[Grag]

Используемый модуль ShellAPI. Его нужно не забыть указать в разделе Uses.
Описание: ShellExecute (hWnd: HWND; Operation: PChar; FileName: PChar; Parametrs: PChar; Directory: PChar; CmdShow: Integer): HINST;
где: hWnd – Handle родительского окна, в который будут передаваться сообщения запускаемого приложения. Можно указывать Handle-ссылку окна вашего приложения.
Operation – производимая операция. Open – открыть, print – напечатать, explore – открыть папку. По умолчанию open, если указать nil.
FileName – имя файла или документа, интернет ссылка, e-mail адрес.
Parametrs – параметры, передаваемые приложению в командной строке.
Directory – каталог по умолчанию.
CmdShow – стиль окна. Показывает, в каком состоянии будет отображаться окно при запуске. Подробно рассказано выше.
Вместо параметров Operation, Parametrs и Directory можно ставить nil. Они являются не обязательными параметрами для запуска.

[zzzetka]

procedure TForm1.btn2Click(Sender: TObject);
begin

ShellExecute(Form1.Handle, nil, 'project2.exe',
nil, nil, SW_SHOWNORMAL );
end;

Делаю так... он каждый раз открывает новое окно с этой программой! А как сделать, чтоб старое закрылось?

[zzzetka]

Не знаю насколько это правильно с точки зрения опытных программистов, но где-то в интернете вычитала, скопировала такой примерно текст:

procedure TForm1.btn2Click(Sender: TObject);
begin

postmessage(findwindow(nil,'project 2.exe'), wm_quit,0,0);
WinExec('project2.exe', SW_SHOW);

end;

Вроде работает...

Всем спасибо!

[ZvEr_HaCkEr]

а можно и так

ShellExecute (form4.Handle, nil, PChar (Application.ExeName), nil, nil, SW_RESTORE);
  Application.Terminate;