請問我寫了一個程式,縮小在工作列右下角,但是我想把此程式關閉時,要如何做??我使用FINDFORM時找不到,因為他縮小在工作列了..

Since it is your own program, you should be able to obtain its handle, right? So a suggestion is: Assume your program tray is A and you want to quit A using program B. 1) In A, when starts up, store its handle to a file (or a memory mapped file) 2) In B, grab A's handle from the file send a quite message to A. There are other methods like using socket/DDE etc... i.e. A listen and B send the quit command.

我的程式是會自動更新資料,我想在它更新完資料後,就結束程式.... 請問要如何做???

VAR    h, t: HWND;    d: DWORD; begin   h := FindWindow(nil, 'Project1'); if h<>0 then begin GetWindowThreadProcessId(h, @d); t := OpenProcess(PROCESS_ALL_ACCESS,false,d); TerminateProcess(t, 0); end; end; 比如将已经运行Project1.exe，关闭！ try~ 或许对您有帮助哦

引言: VAR h, t: HWND; d: DWORD; begin h := FindWindow(nil, 'Project1'); if h<>0 then begin GetWindowThreadProcessId(h, @d); t := OpenProcess(PROCESS_ALL_ACCESS,false,d); TerminateProcess(t, 0); end; end; 比如将已经运行Project1.exe，关闭！ try~ 或许对您有帮助哦

因為我的程式是Tryicon根本就FindWindow無效,所以關不到視窗,請問還有其他方法嗎

因為我的程式是Tryicon根本就FindWindow無效,所以關不到視窗,請問還有其他方法嗎

cyl： 在状态兰的图标上加上右键菜单功能，不就可以关闭了吗

引言: 我的程式是會自動更新資料,我想在它更新完資料後,就結束程式.... 請問要如何做???

So it should quit itself? not from other program.

對啊!!是自己關閉自己,在Win98時,用Popmenu會關不掉,但是XP ,win2000都沒問題??

Used any particular component? I remember someone metioned that using FastNet component may cause problem. BTW, used OnCloseQuery event?

嗯，我也遇到類似問題，不過不太一樣。 我也是把程式寫成 TrayIcon 形式，並非用任何外部元件而是 Windows API達成此效果。 關閉的話自己用 Popup Menu 是沒問題，但電腦直接關機的話常常該程式不會被關掉，所以電腦也就無法順利關機，必須人工介入按滑鼠右鍵關掉該程式後，才能再順利關機。 我曾經試著攔截 Windows Message ，判斷若為關閉訊號就自己用把程式關掉，不過我覺得這樣並不好，因為 Message 太多了可能會影響效能，希望能看到更好的解決方法。 JackTasy

------
JackTasy