Restart Program [بایگانی] - برنامه نویس

rahele_sa

پنج شنبه 28 اردیبهشت 1385, 14:42 عصر

چگونه می توان یک برنامه را مجددا راه اندازی کنیم (از خود برنامه)

یعنی ببندیم بعد اجراش کنیم .

sasan_vm

پنج شنبه 28 اردیبهشت 1385, 17:14 عصر

void __fastcall TForm1::btnExitClick(TObject *Sender)
{
this->Close();
ShellExecute(this->WindowHandle, "open", Application->ExeName.c_str(), NULL, NULL, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------

shobair

پنج شنبه 28 اردیبهشت 1385, 17:56 عصر

سلام
کد شما برای دلفی نیست!
یونیت ShellAPI رو در قسمت Uses اضافه کنید.
کد را در رویداد کلیک یک دکمه بنویسید:

procedure TForm1.Button1Click(Sender: TObject);
begin
application.Terminate;
ShellExecute(Handle,'open',pchar(Application.ExeNa me),'','',1);
end