国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

<noscript id="etegx"><meter id="etegx"></meter></noscript>

<sup id="etegx"></sup>

首頁(yè) > 編程 > Delphi > 正文

檢測(cè)Delphi是否正在運(yùn)行

2019-11-18 18:57:12

字體：大中小

來(lái)源：轉(zhuǎn)載

供稿：網(wǎng)友

{檢測(cè)Delphi是否正在運(yùn)行}
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;
{檢測(cè)Delphi是否正在運(yùn)行}

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

下一篇：Borland與Microsoft關(guān)于Delphi的對(duì)話

學(xué)習(xí)交流

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)箱大愛(ài)...

熱門(mén)圖片

猜你喜歡的新聞

猜你喜歡的關(guān)注

新聞熱點(diǎn)

榮耀總裁趙明烏鎮(zhèn)演講：榮耀首款5G手機(jī)V30下月發(fā)布

2019-10-23 09:17:05

搜狐張朝陽(yáng)：回歸媒體是搜狐重新崛起的關(guān)鍵

2019-10-21 09:20:02

華為輪值董事長(zhǎng)郭平：虛擬技術(shù)創(chuàng)造現(xiàn)實(shí)價(jià)值

2019-10-21 09:00:12

滴滴英文服務(wù)上線兩周年用戶已超200萬(wàn)

2019-09-26 08:57:12

華為推出全球至快AI訓(xùn)練集群Atlas900

2019-09-25 08:46:36

馬斯克：特斯拉正組建中國(guó)技術(shù)團(tuán)隊(duì)

2019-09-25 08:15:43

疑難解答

圖片精選

網(wǎng)友關(guān)注

主站蜘蛛池模板：双峰县| 炎陵县| 桂东县| 莱州市| 汕尾市| 寻甸| 龙南县| 兰西县| 勐海县| 榕江县| 阜南县| 于都县| 日土县| 藁城市| 闽侯县| 乐昌市| 出国| 邵武市| 临安市| 江山市| 金湖县| 息烽县| 乌拉特后旗| 扎赉特旗| 辉县市| 玉林市| 郸城县| 天长市| 宁乡县| 泾阳县| 新化县| 同心县| 滁州市| 中阳县| 南宁市| 宝鸡市| 太原市| 涟源市| 青神县| 昌图县| 遵义市|

<small id="aoflq"><tbody id="aoflq"></tbody></small>

<style id="aoflq"><mark id="aoflq"></mark></style>