发信人: zengxi()
整理人: teleme(2001-01-03 15:31:29), 站内信件
|
【 在 firefire (Lucky Sam) 的大作中提到: 】
procedure TMain.mnHideTaskClick(Sender: TObject);
var wndHandle:thandle;
wndClass:array[0..50] of char;
begin
mnHidetask.Checked:=not mnhidetask.Checked;
StrPCopy(@wndClass[0], 'Shell_TrayWnd');
wndHandle := FindWindow(@wndClass[0], nil);
if mnHidetask.Checked then
ShowWindow(wndHandle, SW_HIDE)
else
showWindow(wndHandle,Sw_Show);
end;
--
http://funstudio.yeah.net
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 61.157.149.1]
|
|