如題。

function InDelphiIDE: Boolean;
var
  Handle: THandle;
begin
  Handle := GetModuleHandle('dphide50.bpl');
  Result := (Handle <> 0) and (Handle <> INVALID_HANDLE_VALUE);
end;

發表人 - tony-tang 於 2005/01/05 09:42:53

引言:

function InDelphiIDE: Boolean;
var
  Handle: THandle;
begin
  Handle := GetModuleHandle('dphide50.bpl');
  Result := (Handle <> 0) and (Handle <> INVALID_HANDLE_VALUE);
end;

發表人 - tony-tang 於 2005/01/05 09:42:53

可否請教一下，Tony-Tang 兄的執行環境？ 我的是windows xp delphi5 ,理論上應該是行的通，但就是抓不到 Handle值，真奇怪了。

引言:

引言: [quote]

function InDelphiIDE: Boolean;
var
  Handle: THandle;
begin
  Handle := GetModuleHandle('dphide50.bpl');
  Result := (Handle <> 0) and (Handle <> INVALID_HANDLE_VALUE);
end;

發表人 - tony-tang 於 2005/01/05 09:42:53

可否請教一下，Tony-Tang 兄的執行環境？ 我的是windows xp delphi5 ,理論上應該是行的通，但就是抓不到 Handle值，真奇怪了。

bruce 兄您好 我的環境是Windows 2000 Server SP4 Delphi5 至於Windows XP 上抓不到 Handle 值就不是很清楚了說，真是抱歉!! 發表人 - tony-tang 於 2005/01/05 11:50:04

if csDesigning in ComponentState then begin { 設計階段 } end;    ..-----------βλμε------------..
◎Ｏｏ月夜 光明 藍更愁ｏＯ◎
藍調月光城v4：http://inping.myweb.hinet.net/ (暫時使用中..) 明日報(藍調．月光)：http://mypaper2.ttimes.com.tw/user/a6475

------
月夜 光明 藍更愁

參考這篇試試: http://delphi.ktop.com.tw/topic.php?topic_id=48864 -- QBQ: 我能做什麼？

引言: 參考這篇試試: http://delphi.ktop.com.tw/topic.php?topic_id=48864 -- QBQ: 我能做什麼？

看來版主提出的是正解，其他好友建議的方法也應該可行，如使用findwind 一樣可以解決問題，而版主找的這個API是否會有不同作業系統相容的問題呢？大家可以試試囉，先結案了吧。