delphi Disable_UAC_Vista

本文整理自网络，侵删。

  
procedure RunAsAdmin(hWnd : HWND; aFile : String; aParameters : String);
Var
 Sei : TShellExecuteInfoA;
begin
 Fillchar(sei,SizeOf(sei),0);
 sei.cbSize := SizeOf(sei);
 sei.Wnd    := hWnd;
 sei.fMask  := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;
 sei.lpfile := PChar(aFile);
 sei.lpVerb := 'runas';
 sei.lpParameters := PChar(aParameters);
 sei.nShow := SW_SHOWNORMAL;
 if not ShellExecuteEx(@sei) then
  RaiseLastOSError;
end;

if OpenDialog1.Execute then
 RunAsAdmin(self.Handle,OpenDialog1.FileName,'');
 

相关阅读 >>

Delphi deletefile 删除文件

Delphi手动创建dataset并插入值

Delphi在64位系统下读写注册表

Delphi 窗口跟随

Delphi idhttp http.get 获取json数据

Delphi imagelist-图片（bmp）按名称而不按索引

Delphi在postgresql中读写二进制数据

Delphi 取pe文件的引入表和导出表

Delphi 如何让程序在按了 android 的 back 键后不关闭当前 from 或者不 app 退出

Delphi程序升级到64位

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi Disable_UAC_Vista