shellexecute(100分)

C

chrisfan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #1

shellexecute、winexec、createprocess可以调用外部可执行程序，那么如何终止已调用的
外部程序？最好有例子，谢谢

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #2

SendMessage(FindWindow(...),WM_CLOSE,...)

 

S

sunman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #3

下面给出一段在 Delphi 中关闭“计算器”程序为例：
...
var
CountHWnd: HWnd;
begin
CountHWnd:=FindWindow(nil, '计算器');
if HWndCalculator <> 0 then
SendMessage(CountHWnd, WM_CLOSE, 0, 0);
end;

 

老

老人家

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #4

UP

 

C

chrisfan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #5

谢谢。
var
CountHWnd: HWnd;
begin
CountHWnd:=FindWindow(nil, '计算器');
if HWndCalculator <> 0 then
SendMessage(CountHWnd, WM_CLOSE, 0, 0);
end;
HWndCalculator 是是么？

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #6

用CountHWnd代替HWndCalculator

 

S

sgs125

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #7

呵呵，应该是她写错了

 

C

chrisfan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #8

谢谢大家

 

N

naughtboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #9

procedure TForm1.Button1Click(Sender: TObject);
var
H:THandle;
PWORD;
begin
H:=FindWindow(nil,'无标题 - 记事本');
if H<>0 then
begin
GetWindowThreadProcessId(H,@P);
if P<>0 then
TerminateProcess(OpenProcess(PROCESS_TERMINATE,False,P),$FFFFFFFF);
end;
end;

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #10

是句柄，应该这么写：

var
CountHWnd: HWnd;
begin
CountHWnd:=FindWindow(nil, '计算器');
if CountHWnd <> 0 then
////////
SendMessage(CountHWnd, WM_CLOSE, 0, 0);
end;


如果系统中目前运行了附件中的“计算器”程序，则把它关闭

 

C

chrisfan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #11

多人接受答案了。