Запуск приложения от имени администратора

[UKRtortik]

Как можно запрашивать админ. права для запуска? Пробывал с манифестом, что-то не хочет работать.

var
 SEI: TShellExecuteInfo;
 lpExitCode: DWORD;
begin
 ZeroMemory(@SEI, SizeOf(SEI));
 SEI.cbSize := SizeOf(TShellExecuteInfo);
 SEI.Wnd := Handle;
 SEI.fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;
 SEI.lpVerb := PChar('runas');
 SEI.lpFile := PChar(Application.ExeName);
 SEI.nShow := SW_SHOWNORMAL;
 SEI.lpParameters:= 'бла бла';
 if ShellExecuteEx(@SEI) then
   GetExitCodeProcess(SEI.hProcess, lpExitCode);
end;

нашел такой пример, но он почему то бесконечно запускает программу.

[Shouldercannon]

Как такой вариант?

[UKRtortik]

я же написал, примеры с манифестом не работают.

[HTTqp]

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

я же написал, примеры с манифестом не работают.

Все работает с манифестом если по уму, по желанию можешь скинуть проект помогу в скайпе или как удобней тебе. Пиши в ЛС если что.

[UKRtortik]

на Win 8 не работает.

[Stilet]

почему то бесконечно запускает программу.

А ты куда его втюхал? Уж не в стартовые события программы ли?

[Пепел Феникса]

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

на Win 8 не работает.

манифест? работает он там отлично.

[UKRtortik]

Сегодня пробывал пример, который прислали выше, не работает.

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

А ты куда его втюхал? Уж не в стартовые события программы ли?

А куда нужно?

[Stilet]

Ну сам посуди - ты вставляешь код запуска программы в начало этой же программы.
Ничего не смущает? Программа будет запускать себя бесконечно.
И зачем тебе вообще понадобились такие права? Предоставь пользователю выбирать как запускать твою программу, а в readme или в splash окне программы напиши мол "Рекомендуется запускать с правами админа".
Не пойму че людям так охота все хакнуть? Получить права бога? Неужели играть по нынешним правилам настолько некузяво?

[UKRtortik]

var
SEI: TShellExecuteInfo;
lpExitCode: DWORD;
begin
if IsUserAnAdmin then
exit
else begin
ZeroMemory(@SEI, SizeOf(SEI));
SEI.cbSize := SizeOf(TShellExecuteInfo);
SEI.Wnd := Handle;
SEI.fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;
SEI.lpVerb := PChar('runas');
SEI.lpFile := PChar(Application.ExeName);
SEI.nShow := SW_SHOWNORMAL;
ShellExecuteEx(@SEI);
GetExitCodeProcess(SEI.hProcess, lpExitCode);
end;
end;

Почему программа запускается 2 раза?