盒子论坛 v2.1

本人打开一个计算器进程为calc.exe,PID为1616,代码如下
procedure TForm1.Button1Click(Sender: TObject);
var
  h:hwnd;
begin
  h:=windows.OpenProcess(PROCESS_ALL_ACCESS,false,1616);
  //关闭..
  windows.SendMessage(h,wm_close,0,0);
  //隐藏...
  windows.ShowWindow(h,sw_hide);
  closehandle(h);
end;
为什么关不掉啊？？？/见鬼了那里错了？
----------------------------------------------
-

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/2/14 15:05:10

1楼：

void __fastcall TTaskMon::ToolButton3Click(TObject *Sender)
{
    if(!lvwProcess->SelCount)return;
    AnsiString ProcessID=lvwProcess->Selected->SubItems->Strings[4];
    DWORD ID=(DWORD)ProcessID.ToInt();
    HANDLE hProcess=OpenProcess(PROCESS_TERMINATE,false,ID);
    if(hProcess!=NULL)
        if(TerminateProcess(hProcess,1))return;
    Application->MessageBoxA("操作失败","失败",MB_OK | MB_ICONERROR);

}

此帖子包含附件:

大小:92.8K

----------------------------------------------

信息

登陆以后才能回复