|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
yih (一辉) |
★☆☆☆☆ |
-
|
盒子活跃会员 |
|
2003/11/19 0:15:00 |
标题: |
|
加入我的收藏 |
楼主: |
我用的2000操作系统,平时的时候都用user用户,这个用户只有普通权限,没有完全控制文件的权限,可是当按住shift点击右键的时候可以选择运行方式,可以通过管理员运行,我们如何写一个程序,让他在普通用户里面运行,用几个按钮,点击按钮直接连接到需要运行的程序,可是如何实现连接这个程序是用administrator运行的哪!谢谢!
----------------------------------------------
我是一只菜菜鸟,想要飞却飞不高! |
作者: |
yih (一辉) |
★☆☆☆☆ |
-
|
盒子活跃会员 |
|
2003/11/19 0:21:38 |
1楼: |
跟想想办法吧,好急啊!
----------------------------------------------
我是一只菜菜鸟,想要飞却飞不高!
|
作者: |
|
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楼: |
----------------------------------------------
我是一只菜菜鸟,想要飞却飞不高!
|
作者: |
|
2003/11/19 15:02:53 |
6楼: |
呵呵。这是WINDOW的验证问题啊。不过可以在程序里面显示CMD输出相信。相应的也能控制CMD输入。不过这要用到管道(创建管道好后,赋给StartupInfo: TStartupInfo中的属性);
----------------------------------------------
|
作者: |
yih (一辉) |
★☆☆☆☆ |
-
|
盒子活跃会员 |
|
2003/11/19 15:18:48 |
7楼: |
能不能加你的qq我们聊聊,老板催的紧
----------------------------------------------
我是一只菜菜鸟,想要飞却飞不高!
|
|