我想用DELPHI的一个按扭来执行DOS窗口下的NET STOP SERVICES命令该如何做？(100分)

N

namelysweet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-09

• #1

我想用DELPHI的一个按扭来执行DOS窗口下的NET STOP SERVICES命令该如何做？

要隐藏DOS窗口，用SHELL吗？有没有例子，谢谢。。。我记的以前看过，但找不到了。。。



[8D]

 

O

ottsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-09

• #2

shellexecute(self.handle, nil, 'net.exe', 'stop services',nil,SW_HIDE);

 

N

netfool

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-09

• #3

uses ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle, 'Open', 'net stop ...', nil, nil, SW_HIDE);
end;

 

Y

yaoqiaofeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-09

• #4

用shellexecute执行DOS程序是没有反应的,用winexe吧

 

N

namelysweet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-09

• #5

thans，那为什么用SHELLEXEC不行呢，没反映呢？？？[?]

 

N

namelysweet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-09

• #6

我试了，SHELLEXEC管用的啊[] THX

 

D

Devinfo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-09

• #7

winexec('NET STOP SERVICES ...')

 

L

leejames

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-10

• #8

SHELLEXEC我没试过，但是winexec('NET STOP SERVICES ...')有点问题，
winexec如果调用时直接用DOS命令如 net stop ...这样的参数，执行完后
会在内存中留有一个DOS进程无法释放，win9x/2k/xp都有这种现象。可以用
以下这种方法使得DOS进程完全退出：
win9x 用如下参数 'command.com /c net stop....'
2k/xp 'cmd.exe /c net stop....'

 

Z

ztaif

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-10

• #9

winexec('net stop messenger',0);

这样最简单 0 为不显示执行窗口，1为显示执行窗口