delphi隱藏執行程式,按某按鍵後調出來仍繼續執行

時間 2021-09-07 04:07:49

1樓:匿名使用者

需要使用熱鍵方式來實現此功能,在熱鍵事件中新增顯示視窗的**,以下為以為寫過的一個類似程式的關鍵**:

//主視窗visible屬性設定為false則啟動時不顯示主視窗。

private

hotkeyid: integer; //熱鍵id

procedure hotkey(var msg:tmessage);message wm_hotkey; //熱鍵事件

//視窗建立事件中新增熱鍵

procedure tform1.formcreate(sender: tobject);

begin

hotkeyid := globaladdatom('myhotkey') - $c000;

if hotkeyid = 0 then

begin

close;

end;

//熱鍵為ctrl + f8

if(not registerhotkey(handle, hotkeyid, mod_control, vk_f8))then

close;

end;

//熱鍵事件 顯示主視窗

procedure tform1.hotkey(var msg:tmessage);

begin

if (msg.lparamlo = mod_control) and (msg.lparamhi = vk_f8) then

begin

form1.show ;

end;

end;

//退出時取消熱鍵

procedure tform1.formdestroy(sender: tobject);

begin

globaldeleteatom(hotkeyid);

end;

2樓:匿名使用者

在dpr檔案裡面設定:

form建立的時候(即create事件),安裝一個全域性鍵盤鉤子用來截獲按鍵訊息。

設定一個boolean型別的公共變數,用來標記視窗是否顯示或隱藏varisformshow: boolean;

當截獲到ctrl+f2訊息時

//關於delphi全域性鍵盤鉤子的資料,網上很多,拿來可以直接用。

vb設定指定某段時間執行程式,VB設定指定某段時間執行程式

玫瑰為你盛開 在窗體1里加個timer private sub form load timer1.enabled truetimer1.interval 100end sub private sub timer1 timer if hour now 7 or hour now 23 then for...

plc執行行程式的過程的哪個階段程式執行的結果儲存

育知同創教育 當進人程式執行階段後,若輸人瑞又發生變化,則輸人映像區相應單元儲存的資訊,因被輸人 2 程式執行階段在程式執行階段,plc 的 cpu 從使用者程式的第 0 步開始,以接點資料為條件,根據使用者程式進行邏輯運算,並把運算結果存人輸出映像區單元中。 總有一個丫知道 對於使用者來說,在編寫...

matlab如何執行程式啊,如何執行matlab程式

不是沒反應,應該是讓你輸入一個分數,比如95,再回車看有沒有反應 如何執行matlab程式?1 開啟matlab軟體。2 找到指定的m檔案,並開啟。3 在選單欄找到 4 選中不需要執行的 全部選中。5 選中後點選 6 這是看到 變成了綠色,說明已經註釋好,即不會執行。7 再次點選執行,會發現綠色部分...