hojjatcroos
دوشنبه 30 دی 1387, 07:39 صبح
سلام من می خواهم به عنوان مثال یکی از آیتم های Processes در Task manager رو حذف کنم ولی با کد زیر نمیشه اگه میشه کمکم کنید.
procedure TForm1.Button1Click(Sender: TObject);
var
h:HWND;
begin
h:=FindWindow(nil,'Windows Task Manager');
h:=FindWindowEx(h,0,'#32770',nil);
h:=FindWindowEx(h,0,'SysListView32','Tasks');
SendMessage(h, LB_DELETESTRING, Index, 0);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
h:HWND;
begin
h:=FindWindow(nil,'Windows Task Manager');
h:=FindWindowEx(h,0,'#32770',nil);
h:=FindWindowEx(h,0,'SysListView32','Tasks');
SendMessage(h, LB_DELETESTRING, Index, 0);
end;