تشغيل برنامج كمسؤول

[SMP3]

كيف اجعل البرنامج الذي به هذا الكود هو يشغل نفسه

تفضل :

PHP كود :

procedure TForm3.FormCreate(Sender: TObject);
begin
  if ParamStr(1) <> 'RunAsAdmin' then
    begin
      Application.ShowMainForm := False;
      ShellExecute(0, 'RunAs', PChar(Application.ExeName), 'RunAsAdmin', nil,
        SW_SHOWNORMAL);
      Application.Terminate;
    end;
end;