开机程序最小化到任务栏的资源占用问题 |
缺席
|
zhouying82
高階會員 發表:150 回覆:272 積分:189 註冊:2004-03-16 發送簡訊給我 |
我想让他一开机就显示在右下角的任务栏上,且在任务栏上面没有最小化窗体的影子,代码如下:
以下为APPLICATION的source [code delphi] 。。。。。 {$R *.res} var PrevInstWnd : Integer; begin PrevInstWnd := FindWindow('TApplication','AnyReminder 1.0'); if PrevInstWnd<>0 then begin if IsIconic(PrevInstWnd) then ShowWindow(PrevInstWnd, SW_RESTORE) else SetForeGroundWindow(PrevInstWnd); Exit; end; Application.Initialize; Application.Minimize ; Application.MainForm.Visible := False; if IsWindowVisible(Application.Handle) then ShowWindow(Application.Handle, SW_HIDE ); Application.MainFormOnTaskbar :=false; Application.ShowMainForm := False; Application.Title := 'AnyReminder 1.0'; Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm3, Form3); Application.Run; end. [/code] 问题来了。这样的话,开机会在任务栏上面出现程序的窗口的最小化的框子,有没有什么办法吗?还是我本身就写的不对?
------
断断续续的学了几年,还是一个初学者,永远支持Delphi ! 編輯記錄
taishyang 重新編輯於 2009-05-08 10:42:53, 註解 分類成[問題]‧
|
小傑克
資深會員 發表:5 回覆:209 積分:357 註冊:2009-02-16 發送簡訊給我 |
有兩個問題我一起說明
我目前用的是D7, 其他版本是不是這樣我不知道 1. Application.MainForm 的method 要在main form 被Create 以後呼叫才不會錯誤, 所以你程式順序是不對的,應該會有AccessViolation 2. 不顯示在工作列只要 Application.ShowMainForm := False; 其他這些都拿掉 Application.Minimize ; Application.MainForm.Visible := False; Application.MainFormOnTaskbar :=false; (MainFormOnTaskbar 我D7沒這個method) 你多了Application.Minimize ; 就會先跑到工作列上
------
額有朝天骨,眼中有靈光 |
zhouying82
高階會員 發表:150 回覆:272 積分:189 註冊:2004-03-16 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |