Перезапустить свою программу

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Оформил: DeeCo

Автор: http://www.swissdelphicenter.ch

procedure TForm1.Button1Click(Sender: TObject);

var

FullProgPath: PChar;

begin

FullProgPath := PChar(Application.ExeName);

// ShowWindow(Form1.handle,SW_HIDE);

WinExec(FullProgPath, SW_SHOW); // Or better use the CreateProcess function

Application.Terminate; // or: Close;

end;

{/codecitation}

Добавить комментарий