如何隐藏运行中的窗口的问题?
我有这样一个想法:由于牵涉到需要不能让外人知道的原因.想做这样一个程序.就是在系统启动的时候,程序能自动启动.并隐藏起来.在需要的时候,点击其中的一个特定按键,程序能够在桌面上可以显示,就是程序正常运行.点击按钮有可以隐藏.但程序仍然可以正常运行.请问如何处理(DELPHI+SQL2000)?
在线等!
[解决办法]
showwindow(handle,0)
[解决办法]
form1.show;form1.hide
[解决办法]
borderStyle:=bsNone;
width:=0;
heith:=0;
[解决办法]
procedure TForm1.BitBtn13Click(Sender: TObject);
begin
hotkeyid:=GlobalAddAtom( 'Hotkey ');// 'Hotkey '名字可以随便取
RegisterHotKey(form1.Handle,hotkeyid,0,VK_F1);
end;
procedure TForm1.BitBtn14Click(Sender: TObject);
begin
unregisterhotkey(handle,hotkeyid);
DeleteAtom(hotkeyid);
end;
procedure WMHotKey(var Msg: TWMHotKey); message wm_hotkey;
procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
if msg.HotKey = hotkeyid then
begin
Self.Visible:= not Self.Visible;
end;
end;
注册热键,按F1进行显示与隐藏.
