我又有问题了，关于进程的问题呀，大家快来帮忙。很感谢大家，在这里我学到很多！

[kinsunc]

大家一定用过xp吧，应该知道xp有一个功能很不错，可以一次性关闭已打开的程序，一般程序运行后，会在任务栏上有一个按钮，按钮上有窗口的名字。

现在大家开始动手吧，
我已经找到以下程序可以列出 任务栏上有按钮的所以程序窗口名称。
****************************************************************
uses shellapi;

function GetText(Wnd : HWND) : string;
var
textlength : integer;
text : PChar;
begin
textlength:=SendMessage(Wnd,WM_GETTEXTLENGTH,0,0);
if textlength=0 then
Result := ''
else begin
getmem(text,textlength+1);
SendMessage(Wnd,WM_GETTEXT,textlength+1,Integer(text));
Result:=text;
freemem(text);
end;
end;

function EnumWindowsProc (Wnd: HWND; LParam: LPARAM): BOOL; stdcall;
begin
Result := True;
if (IsWindowVisible(Wnd)) and
(GetWindowLong(Wnd, GWL_HWNDPARENT) = 0) and
(GetWindowLong(Wnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW = 0) then
begin
Form1.Listbox1.items.add('Handle:'+Inttostr(Wnd)+',Text:'+GetText(Wnd));
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Param : Longint;
begin
EnumWindows(@EnumWindowsProc , Param); //列出已运行的程序
end;

请大家帮忙练习一下，如果将这些已列出的程序，一个个关闭。

期待中。。。。。。。。。。。。。

[minizhuxianchun]

得到窗体句柄后用SengMessage函数向窗体发送WM_CLOSE消息呀！注意：这样会把一些系统窗体关闭，如左下角的《开始》菜单，有些系统窗体则是关不掉的。

[kinsunc]

上楼的兄弟，你这样的方式法不行哦。有一些窗口关不掉呀，

[xiaoxiao197821]

var
ZAppName: array[0..127] of char;
begin
StrPCopy(ZAppName, '标题');
closeWindow(FindWindow(nil, ZAppName))

[visual_cjiajia]

是的有些确实是关不调的，你必须关闭进程！

[kinsunc]

那这样不行呀

对了，楼上xiaoxiao197821(你的笑对我很重要) 你这好像没有关掉什么东东呀。

[aiirii]

BOOL TerminateThread(
HANDLE hThread,
DWORD dwExitCode
);

[fim]

{For Windows NT/2000/XP }

procedure KillProcess(hWindowHandle: HWND);
var
hprocessID: INTEGER;
processHandle: THandle;
DWResult: DWORD;
begin
SendMessageTimeout(hWindowHandle, WM_CLOSE, 0, 0,
SMTO_ABORTIFHUNG or SMTO_NORMAL, 5000, DWResult);
if isWindow(hWindowHandle) then
begin
// PostMessage(hWindowHandle, WM_QUIT, 0, 0);
{ Get the process identifier for the window}
GetWindowThreadProcessID(hWindowHandle, @hprocessID);
if hprocessID <> 0 then
begin
{ Get the process handle }
processHandle := OpenProcess(PROCESS_TERMINATE or PROCESS_QUERY_INFORMATION,
False, hprocessID);
if processHandle <> 0 then
begin
{ Terminate the process }
TerminateProcess(processHandle, 0);
CloseHandle(ProcessHandle);
end;
end;
end;
end;

[kinsunc]

楼上的兄弟，不错，不过我想在9X上实现哦

[ju1]

98下也是 终止进程

[AppFirst]

给你个函数,可以杀死所有进程,不要乱用啊!:)
function EnabledDebugPrivilege(const bEnabled: Boolean):Boolean;
var
hToken: THandle;
tp: TOKEN_PRIVILEGES;
a: DWORD;
const
SE_DEBUG_NAME = 'SeDebugPrivilege';
begin
Result:=False;
//打开当前Process的令牌(我一直叫Token为令牌)
if (OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES, hToken)) then
begin
//调整令牌的权限,也就是加上或者取消调试权限(SE_DEBUG_NAME)
tp.PrivilegeCount :=1;
LookupPrivilegeValue(nil,SE_DEBUG_NAME ,tp.Privileges[0].Luid);
if bEnabled then
tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED
else
tp.Privileges[0].Attributes := 0;
a:=0;
AdjustTokenPrivileges(hToken,False,tp,SizeOf(tp),nil,a);
Result:= GetLastError = ERROR_SUCCESS;
CloseHandle(hToken);
end;
end;

procedure KillProcess(ProcessId:THandle);
Var
Hds:THandle;
ECode:Cardinal;
begin
Hds:=OpenProcess(PROCESS_ALL_ACCESS,true,ProcessId);
if GetExitCodeProcess(Hds,ECode) then
TerminateProcess(Hds,ECode);
end;

Function GetProcessFullPath(Name:String):String;
Var
Lp:TProcessEntry32;
Hd:THandle;
begin
EnabledDebugPrivilege(true);
Try
Lp.dwSize:=sizeof(TProcessEntry32);
Hd:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
if Process32First(Hd,Lp) then
Repeat
Try
KillProcess(Lp.th32ProcessID)
Except
end;
Until Process32Next(Hd,Lp)=False;
CloseHandle(Hd);
Finally
EnabledDebugPrivilege(false);
end;
end;