a亚洲精品_精品国产91乱码一区二区三区_亚洲精品在线免费观看视频_欧美日韩亚洲国产综合_久久久久久久久久久成人_在线区

首頁 > 編程 > Delphi > 正文

檢測Delphi是否正在運行

2019-11-18 18:57:12

字體：大中小

來源：轉載

供稿：網友

{檢測Delphi是否正在運行}
function DelphiIsRunning: Boolean;
const
A1: array[0..12] of char = 'Tapplication'#0;
A2: array[0..15] of char = 'TAlignPalette'#0;
A3: array[0..18] of char = 'TA4: array[0..11] of char = 'TAppBuilder'#0;
{$IFDEF WIN32}
{$IFDEF VER130}
T1: array[0..15] of char = 'Delphi 5'#0;
{$ENDIF}
{$IFDEF VER120}
T1: array[0..15] of char = 'Delphi 4'#0;
{$ENDIF}
{$IFDEF VER100}
T1: array[0..15] of char = 'Delphi 3'#0;
{$ENDIF}
{$IFDEF VER90}
T1: array[0..15] of char = 'Delphi 2.0'#0;
{$ENDIF}
{$IFDEF VER93}
T1: array[0..15] of char = 'C++Builder'#0;
{$ENDIF}
{$IFDEF VER110}
T1: array[0..15] of char = 'C++Builder'#0;
{$ENDIF}
{$IFDEF VER125}
T1: array[0..15] of char = 'C++Builder 4'#0;
{$ENDIF}
{$ELSE}
T1: array[0..15] of char = 'Delphi'#0;
{$ENDIF}
begin
Result := (FindWindow(A1,T1)<>0) and
(FindWindow(A2,nil)<>0) and
(FindWindow(A3,nil)<>0) and
(FindWindow(A4,nil)<>0);
end;
{檢測Delphi是否正在運行}

上一篇：delphi5。0秘籍大暴光

下一篇：Borland與Microsoft關于Delphi的對話

學習交流

索泰發布一款GTX 1070 Mini迷你版本:小機

索泰發布一款GTX 1070 Mini迷你版本:小機箱大愛...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關注

新聞熱點

榮耀總裁趙明烏鎮演講：榮耀首款5G手機V30下月發布

2019-10-23 09:17:05

搜狐張朝陽：回歸媒體是搜狐重新崛起的關鍵

2019-10-21 09:20:02

華為輪值董事長郭平：虛擬技術創造現實價值

2019-10-21 09:00:12

滴滴英文服務上線兩周年用戶已超200萬

2019-09-26 08:57:12

華為推出全球至快AI訓練集群Atlas900

2019-09-25 08:46:36

馬斯克：特斯拉正組建中國技術團隊

2019-09-25 08:15:43

疑難解答

圖片精選

網友關注

主站蜘蛛池模板：日韩中文在线 | 成人深夜福利在线观看 | 成人av电影网址 | 九九九九精品 | 欧美一级在线观看 | 日韩天堂 | 天天干,夜夜操 | 九九精品视频在线观看 | 一区免费 | 国产成人一区二区三区 | 成人黄色免费观看 | 欧美在线观看一区 | 久久毛片 | 国产精品一区二区三区四区 | 九九色综合 | 亚洲国产aⅴ成人精品无吗 91精品国产一区二区 | 91精品国产91久久综合桃花 | 国产第6页| 亚洲最新av | 亚洲高清视频在线观看 | 国产玖玖| 精品18| 亚洲精品1 | 日本一级中文字幕久久久久久 | 黄色片在线免费观看 | 狠狠综合 | 日本亚洲精品成人欧美一区 | 夜夜夜久久久 | 国产精品一区二区三区免费 | av超碰| 四虎在线播放 | 黄色免费观看 | 男人的午夜 | 久久久中文字幕 | 日韩视频精品 | 久久久久亚洲 | 99热在线国产 | 亚洲精品免费在线播放 | 国产高清视频 | 成人欧美一区二区三区黑人孕妇 | 国产在线视频一区二区 |