[Zorkov Igor]

Сообщение от iiiPoizone

Есть ли возможность сделать так, чтобы когда мы запускаем файл с каким-нибудь ключом (например -adm), он предложит запуск от имени администратора, если ключ отсутствует, то приложение запускается как обычно?

Код:

uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
var
  ShellExecuteInfoW: TShellExecuteInfoW;
begin
  FillChar(ShellExecuteInfoW, SizeOf(ShellExecuteInfoW), 0);
  ShellExecuteInfoW.cbSize := SizeOf(ShellExecuteInfoW);
  ShellExecuteInfoW.Wnd := Handle;
  ShellExecuteInfoW.fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;
  if Edit1.Text = '12345' then
    ShellExecuteInfoW.lpVerb := 'runas';
  ShellExecuteInfoW.lpFile := PWideChar('C:\Windows\System32\notepad.exe');
  ShellExecuteInfoW.nShow := SW_SHOWNORMAL;
  ShellExecuteEx(@ShellExecuteInfoW)
end;