أحتاج إلى كود من أجل إعادة تشغيل برنامجي

السلام عليكم ورحمة الله

يعمل على FPC/Lazarus لكن على بيئة windows فقط

لذلك أضف المكتبة windows ضمن uses.

function SelfRestart: Boolean;
var
 pInfo: TProcessInformation;
 sInfo: TStartupInfo;
begin
  ZeroMemory(@sInfo, SizeOf(sInfo));
  sInfo.cb := SizeOf(sInfo);
  Result := CreateProcess(PChar(Application.ExeName), nil,
                nil, nil, False, NORMAL_PRIORITY_CLASS,
                nil, nil, sInfo, pInfo);
  CloseHandle(pInfo.hProcess);
  CloseHandle(pInfo.hThread);
  if Result then
     Application.Terminate;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SelfRestart;
end;

بالتوفيق.

الحمد لله لقد وجدت الكود وهذا هو

procedure TFm.BitBtn3Click(Sender: TObject);
Var Processus : TProcess;
Begin
(* Création du processus *)
Processus := TProcess.Create(Nil);
(* Définition de la commande à exécuter *)
Processus.CommandLine := '/home/linuxman/programs/faraidh/faraidh';
(* Tout est prêt pour l'exécution *)
Processus.Execute;
(* Libération du processus *)
Application.Terminate;
end;

ولا ننسى في الإعلانات أن نضع

uses process;