怎么关闭控制面板(50分)

W

weblogic_li

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-29

• #1

如何关闭控制面板

 

X

xkliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-29

• #2

procedure TForm1.Button1Click(Sender: TObject);
var
h: HWND;
begin
h := FindWindow ('CabinetWClass', '控制面板');
if h <> 0 then
begin
PostMessage (h, WM_CLOSE, 0, 0);
end;
end;

 

W

weblogic_li

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-29

• #3

谢谢了，呵呵