如何使用 DELPHI 隐藏程序并用快捷键显示它

要注册快捷键，请检查这些 API 函数。

registerhotkey

globaladdatom

unregisterhotkey

或者寻找德尔福注册系统热键。

很多例子。 一看！

你知道答案吗？ 我也遇到了这个问题。

它是您自己的程序的窗口还是其他程序的窗口？

您自己的程序的窗口可以用 ：= true 显示。

如果是其他程序的窗口，则需要先找到目标窗口，获取窗口句柄，然后使用 Windows API 显示。

var wnd: hwnd;

.wnd := findwindow("窗口类的名称", "窗口标题");

如果 wnd <>0 则找到窗口 showwindow（wnd， sw show）; 显示窗口 else

showmessage("未找到窗口");

窗口类名需要用专业工具（比如spy）获取，不知道也不知道。

在按钮的 onclick 事件中，write ：= not label 是标签控件的名称。

隐藏外局嘲笑程春茶的形态。

procedure : tobject);

varhw:thandle;

beginhw:=findwindow(nil,'表单标题');

showwindow(hw,sw_hide);

end;显示外部程序的窗体。

procedure : tobject);

varhw:thandle;

beginhw:=findwindow(nil,'表单标题');

showwindow(hw,sw_show);

end;中等'表单标题'可能需要将 Kiritsu 的包含修改如下：'tomcat'，具体取决于 Tomcat 中表单标题栏中的文本。

winexec('c:\ ',1);

winexec(' /c cd\',0);隐藏 DOS 窗口。

winexec(' /k cd\',1);显示 DOS 窗口。

如果不想有窗口，只需使用 win32 程序，并将窗口设置为隐藏。

在调试界面中，可以直接ctrl+f2。

既然这是一个无休止的循环，你如何阻止它？

做一个键盘扑击功能，如果 f9 开始，f10 暂停，f11 结束; 设置不同的值（例如 1、2、3）并将值分配给全局变量（例如 w）。

在循环函数中，w （1,2,3） 的值分别用于开始、暂停和结束。

procedure : tobject; var key: word;

shift: tshiftstate);

begin/ showmessage(inttostr(key));

if (ssctrl in shift) and (key = 66) then

beginshowmessage('您按复制

Ctrl + B 向下');

end;end;将窗体的 keypreview 属性更改为 true。

设置按钮的 caption 属性时，在要运行的名称末尾添加 （&b），它将显示为 （b） [b 带下划线]。