Dear all: 如題...... 但若我將該 System TrayIcon 關閉,電腦就可正常關機了,為何會這樣呢??

如果您程式內有用到 FastNet 的元件的話 那是會無法關機的問題的 解決的方法, 改用 Indy 的元件吧! --- --<-<-<@

System TrayIcon is your application? Make sure its OnCloseQuery does not always set CanClose to False. You may be insterested in the WM_ENDSESSION message if you have used OnCloseQuery.

對阿~我有用到FastNet的TNMHTTP元件,那如果要改用INDY中的元件,要用哪一個呢??我是用TIDHTTP,但在讀網頁內容時,不知需用哪一個method,程式碼如下:    function GetCurrentVer() :string; var      tmpstrlistS,tmpstrlistT: Tstringlist;   i,j:integer;    begin      NMHTTP2.get('http://xxx.com.tw/test.asp');  <-- 需修改   tmpstrlistS:= Tstringlist.create;   tmpstrlistS.Add ( NMHTTP2.Body );  <-- 需修改   i:= pos('Test',tmpstrlistS.Text );   j:= PosEx('V',tmpstrlistS.Text,i+1);   result  :=copy(tmpstrlistS.Text,j+2,6);   tmpstrlistS.free;    end;    

引言: 如果您程式內有用到 FastNet 的元件的話 那是會無法關機的問題的 解決的方法, 改用 Indy 的元件吧! --- --<-<-<@

begin
  // ...
  tmpstrlistS:= Tstringlist.create;
  tmpStringListS.Text := IdHttp1.Get('http://xxx.com.tw/test.asp');
  // ...
end;

--- --<-<-<@

哈哈,可以了耶~~謝謝你~~    

引言:

begin
  // ...
  tmpstrlistS:= Tstringlist.create;
  tmpStringListS.Text := IdHttp1.Get('http://xxx.com.tw/test.asp');
  // ...
end;

--- --<-<-<@

如果程式內有用到 FastNet 的元件的話, 另一個解決方式是 : 1. 使用動態建立FastNet的Object. 2. 處理 WM_QUERYENDSESSION 訊息 , 將FastNet 的Object Free , ex : procedure WMQueryEndSession(var Message: TMessage); message WM_QUERYENDSESSION; procedure TForm1.WMQueryEndSession(var Message: TMessage); begin NMUDP1.Free; Message.Result := 1; end;