تغییر حالت اجرای نرم افزار

[Mask]

این کد:

uses ShellApi, ...; 

function RunAsAdmin(const Handle: Hwnd; const Path, Params: string): Boolean;

var

  sei: TShellExecuteInfoA;

begin

  FillChar(sei, SizeOf(sei), 0);

  sei.cbSize := SizeOf(sei);

  sei.Wnd := Handle;

  sei.fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;

  sei.lpVerb := 'runas';

  sei.lpFile := PAnsiChar(Path);

  sei.lpParameters := PAnsiChar(Params);

  sei.nShow := SW_SHOWNORMAL;

  Result := ShellExecuteExA(@sei);

end;

 

procedure TFormMain.RunAddOrRemoveApplication;

begin

  // Example that uses elevated rundll to open the Control Panel to Programs and features

  RunAsAdmin(FormMain.Handle, 'rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl', '');

end;

این لینک
http://wiki.freepascal.org/Executing_External_Programs