procedure TForm1.Button1Click(Sender: TObject);
var
h:hwnd;
begin
h:=0;
h:=findwindow(pchar('类名'),pchar('窗口标题'),);
if h<>0 then
sendmessage(h,wm_close,0,0);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
h:hwnd;
begin
h:=0;
h:=findwindow(pchar('shell_traywnd'),nil);
if h<>0 then
sendmessage(h,wm_close,0,0);
end;