DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: 19137911446
今日帖子: 6
在线用户: 34
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 yih (一辉) ★☆☆☆☆ -
盒子活跃会员
2003/11/19 0:15:00
标题:
急救! 浏览:1736
加入我的收藏
楼主: 我用的2000操作系统,平时的时候都用user用户,这个用户只有普通权限,没有完全控制文件的权限,可是当按住shift点击右键的时候可以选择运行方式,可以通过管理员运行,我们如何写一个程序,让他在普通用户里面运行,用几个按钮,点击按钮直接连接到需要运行的程序,可是如何实现连接这个程序是用administrator运行的哪!谢谢!
----------------------------------------------
我是一只菜菜鸟,想要飞却飞不高!
作者:
男 yih (一辉) ★☆☆☆☆ -
盒子活跃会员
2003/11/19 0:21:38
1楼: 跟想想办法吧,好急啊!
----------------------------------------------
我是一只菜菜鸟,想要飞却飞不高!
作者:
男 loubingtt (我的生活与你无关) ★☆☆☆☆ -
盒子活跃会员
2003/11/19 0:47:00
2楼: var cmdStr:pchar; 
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
begin
试一试这个:
cmdstr:=pchar({ 本机方式runas /profile /user:mymachine\administrator 要运行的程序(如:"mmc %windir%\system32\dsa.msc")NT域方式runas /profile /env /user:mydomain\admin ""mmc %windir%\system32\dsa.msc" WIN2K域方式
 runas /env /user:user@domain.microsoft.com "notepad \"my file.txt\""});
{建立进程并等待其结束}
fillchar(StartupInfo,sizeof(StartupInfo),0);
CreateProcess(nil,cmdstr,nil,nil,false,0,nil,nil,StartupInfo,ProcessInfo);
With ProcessInfo do begin
CloseHandle(hThread);
WaitForSingleObject(hProcess, INFINITE);
CloseHandle(hProcess);
end;


可以查看OS的帮助!
----------------------------------------------
按此在新窗口浏览图片
作者:
男 yih (一辉) ★☆☆☆☆ -
盒子活跃会员
2003/11/19 12:56:29
3楼: 我能跟你联系一下吗?你的通讯方式??
----------------------------------------------
我是一只菜菜鸟,想要飞却飞不高!
作者:
男 yih (一辉) ★☆☆☆☆ -
盒子活跃会员
2003/11/19 14:04:04
4楼: 谢谢你,我刚才用了runas测试了一下,可是每次都需要输入密码,能不能直接在程序里面加上密码,不跳出每次都要输入密码框!
----------------------------------------------
我是一只菜菜鸟,想要飞却飞不高!
作者:
男 yih (一辉) ★☆☆☆☆ -
盒子活跃会员
2003/11/19 14:09:39
5楼:
着急啊!


----------------------------------------------
我是一只菜菜鸟,想要飞却飞不高!
作者:
男 loubingtt (我的生活与你无关) ★☆☆☆☆ -
盒子活跃会员
2003/11/19 15:02:53
6楼: 呵呵。这是WINDOW的验证问题啊。不过可以在程序里面显示CMD输出相信。相应的也能控制CMD输入。不过这要用到管道(创建管道好后,赋给StartupInfo: TStartupInfo中的属性);

----------------------------------------------
按此在新窗口浏览图片
作者:
男 yih (一辉) ★☆☆☆☆ -
盒子活跃会员
2003/11/19 15:18:48
7楼: 能不能加你的qq我们聊聊,老板催的紧
----------------------------------------------
我是一只菜菜鸟,想要飞却飞不高!
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行89.84375毫秒 RSS