[Dmitry_DM]

Здравствуйте! Недавно задался такой задачей. Видел в интернете много примеров реализации, но толком ничего не работает.. Так вот что я хочу: сделать программу на delphi чтобы при нажатии на кнопку открывалось диалоговое окно с выбором exeшника и оно запускало эту программу используя имя и пароль админа (они известны). Я хочу один раз их вбить в программу и пользоваться.. Как такое реализовать, помогите!

[lmikle]

Мне кажется, что надо копать в сторону CreateProcessEx и соотв. SecurityDescriptor'a...

[Dmitry_DM]

Я вот пытался что-то сделать, но чего-то не работает.. может посоветуете что-нибудь?

[Dmitry_DM]

Ну что, знает кто-нибудь как решить эту задачу? Теоретически это не трудно..но я не могу понять почему, к примеру, моя программа не работает..

[NumLock]

Код:

procedure RunAsAdministrator(const source:string);
var
  shExecInfo: PShellExecuteInfoA;
begin
  New(shExecInfo);
  shExecInfo^.cbSize := SizeOf(SHELLEXECUTEINFOA);
  shExecInfo^.fMask := 0;
  shExecInfo^.Wnd := 0;
  shExecInfo^.lpVerb := 'runas';
  shExecInfo^.lpFile := PAnsiChar(ExtractFileName(source));
  shExecInfo^.lpParameters := '';
  shExecInfo^.lpDirectory := PAnsiChar(ExtractFilePath(source));
  shExecInfo^.nShow := SW_SHOWNORMAL;
  shExecInfo^.hInstApp := 0;
  ShellExecuteEx(shExecInfo);
  Dispose(shExecInfo);
end;

[Dmitry_DM]

А как к этой процедуре обращаться, и что надо писать в uses что бы программа понимала типы переменных, которые используются в этой процедуре?