运行时取得管理员权限
string ls_module
ls_module = space(255)
if handle(getapplication()) > 0 then
if commandline <> "adminright" then
GetModuleFileName(0,ref ls_module,255)
ShellExecute(0,"runas",ls_module,"adminright",0,1)
return
end if
else
MessageBox("","请编译成 exe 再运行本程序,自动取得管理员权限")
return
end if
open(w_main)
自来QQ群苏州熊猫
高版本的PB管用吗? 希望可以使用 下载学习学习
页:
[1]