請問如何讓程式判斷是在 Debug mode 下使用或 Run time mode 下使用的?謝謝 初學者出沒注意!!

------
I like DeBug

看這篇能不能用: http://delphi.ktop.com.tw/topic.php?topic_id=21458

抱歉,我結案結的太早了... 在 XP 下我使用是正常的,但使用者在 98 下使用卻發生,程式開啟錯誤的訊息耶,請問怎麼解決呢,謝謝... 初學者出沒注意!!

------
I like DeBug

您是用哪一種方法？ 出現什麼錯誤訊息？ 哪一行程式出現錯誤？

據使用者描述是出現 "程式開啟錯誤" 這個訊息 因為我手邊沒有 98 環境說.. // if IsDebuggerPresent()=true then begin 我只加了這一段就錯啦..現在comm 就正常了說 f2add.Enabled :=true; f3delete.Enabled :=true; f4modify.Enabled :=true; // end; 初學者出沒注意!!

------
I like DeBug

找了幾篇討論, win98 下好像也有 IsDebuggerPresent 這個 API http://groups.google.com.tw/groups?hl=zh-TW&lr=&ie=UTF-8&oe=UTF-8&th=5b040a670024478b&rnum=1 或者可以用 FindWindow 的方式, 來檢查 delphi IDE 是否在 run 試試:

function IsDelphiRunning:boolean;
begin
    IsDelphiRunning:=FindWindow('TAppBuilder',nil)<>0;
end;