如何使用 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 帶下劃線]。