[iiiPoizone]

В Windows 7 есть приложения отмеченные значком щита.
Такие приложения запускаются с предложением запустится от имени администратора.

Как сделать exe-файл, который будет предлагать запуститься от имени администратора?

Как можно это сделать? может подбросите пример на WinApi если есть?

[NumLock]

ну на, лови...

[iiiPoizone]

Спасибо дружище =))

[iiiPoizone]

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

[einstein]

run as используй

[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;