因为我不想让用户使用除我的程序外的任何功能,所以就考虑能不能不登陆,机器启动后直接运行我的程序,请大家帮帮忙.另外,我写了一段程序总是提示我没有运行权限,帮我看看...
procedure TForm1.Button1Click(Sender: TObject);
var
token: Thandle;
lpStartupInfo: TStartupInfo;
lpProcessInformation: TProcessInformation;
begin
if LogonUser('administrator', '', 'pass', LOGON32_LOGON_INTERACTIVE,
LOGON32_PROVIDER_WINNT50, token) then
begin
FillChar(lpStartupInfo, sizeof(lpStartupInfo), 0);
lpStartupInfo.cb := sizeof(lpStartupInfo);
lpStartupInfo.wShowWindow := SW_SHOW;
CreateProcessAsUser(token, 'D:\calc.exe', '', nil, nil,
true, NORMAL_PRIORITY_CLASS,
nil,
nil,
lpStartupInfo,
lpProcessInformation); end else
CloseHandle(token); Caption := Inttostr(getlasterror);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
token: Thandle;
lpStartupInfo: TStartupInfo;
lpProcessInformation: TProcessInformation;
begin
if LogonUser('administrator', '', 'pass', LOGON32_LOGON_INTERACTIVE,
LOGON32_PROVIDER_WINNT50, token) then
begin
FillChar(lpStartupInfo, sizeof(lpStartupInfo), 0);
lpStartupInfo.cb := sizeof(lpStartupInfo);
lpStartupInfo.wShowWindow := SW_SHOW;
CreateProcessAsUser(token, 'D:\calc.exe', '', nil, nil,
true, NORMAL_PRIORITY_CLASS,
nil,
nil,
lpStartupInfo,
lpProcessInformation); end else
CloseHandle(token); Caption := Inttostr(getlasterror);
end;
解决方案 »
- form显示后,进度条直接运行,如何实现?
- 关于DLL中封装Frame,在frame中有pagecontrol控件切换不翻页求助
- 谁有多线程下载+断点续传的例子,要winsock的,不使用ICS。idhttp等三方控件
- IdFTP在list和get的时,程序停止无响应,CPU系统资源耗尽!
- 语法对吗?
- 今天东西被抢,郁闷中...
- 在程序中怎么样调用另外一个事件的处理程序?
- ★★★★★传奇时代即将过去,遗忘传说-->曾经是我的最爱...等什么呀~~ 快来灌水吧...★★★★
- 真的没有人会了吗???????????????
- 关于保存和读取Font属性的疑问?
- 啊,又出现一个调试问题,大家帮帮我啊!
- 用RichEdit来读取word文件内容,不能直接用吗?
装新补丁吧
关于ACL列表,的详细内容,有谁知道?