;
帖子
3919 
精华
积分
11710 
鱼币
0 ¥ 
来自
大连 
在线时间
1858 小时 
注册时间
2007-6-11 
最后登录
2009-10-20 

贴图大师勋章新人进步勋章宣传大使勋章论坛元老勋章

3
发表于 2009-1-5 19:48 | 只看该作者
妫娴嬬▼搴忔槸鍚﹁繍琛 - 缂栫▼搴 - Powered by SupeSite

浣犵殑浣嶇疆锛缂栫▼搴 >> 璧勮 >> Delphi >> 绋嬪簭搴旂敤 >> 璇︾粏鍐呭 鍦ㄧ嚎鎶曠ǹ

妫娴嬬▼搴忔槸鍚﹁繍琛

鍙戝竷: 2008-6-26 20:32 |  浣滆: admin |   鏌ョ湅: 22娆

width="84%">妫娴嬬▼搴忔槸鍚﹁繍琛

鍦ㄦ煇浜涙儏鍐典笅锛屾垜浠紪鍐欑殑搴旂敤绋嬪簭鍚屾椂鍙兘鏈変竴涓疄渚嬪湪鍐呭瓨涓繍琛岋紝渚嬪鏈嶅姟鍣ㄧ▼搴忋侀渶瑕佺嫭鍗犳煇璁惧鐨勭▼搴忥紝鐢氳嚦鎴戜滑浠呬粎鏄绋嬪簭鍚屾椂鍙湁涓涓疄渚嬭繍琛岋紙濡俇ltraEdit灏辨槸杩欐牱鍋氱殑锛岃浣犱笉鑳藉悓鏃惰繍琛屽涓猆ltraEdit锛夈傝瀹炵幇姝ゅ姛鑳斤紝闇瑕佸湪绋嬪簭涓姞涓鐐瑰垽鏂殑浠g爜锛屽湪Windows

95鎴朩in32鐜涓嬬殑Delphi鐗堟湰涓疄鐜扮殑绋嬪簭濡備笅锛

鎸塁trl+F12閿紝閫夋嫨Project1锛屽姞鍏ヤ笅鍒楄鍙

program Project1;

uses

windows, {鍔犲叆璇ュ彞鎵嶈兘璋冪敤鍑芥暟}

Forms,

Unit1 in 'Unit1.pas'{Form1};

{$R *.RES}

const classname='TForm1'; {澹版槑涓轰富绐椾綋鐨勭被鍚峿

var handle:integer; {鍙橀噺}

begin

{-----------------涓昏涓鸿鍒ゆ柇閮ㄥ垎----------------------}

handle:=findwindow(classname,nil);{鏌ユ壘鏄惁鏈夋绫荤殑绐椾綋}

if handle<>0 then {涓嶄负0鍒欑▼搴忓凡杩愯}

begin

messagebox(0,'璇ョ▼搴忓凡缁忔湁涓涓湪杩愯涓紒','杩愯',0);{鎻愮ず绋嬪簭宸茶繍琛寎

halt; {閫鍑虹▼搴弣

end;

{------------------------------------------------------}

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.Run;

end.

銆銆璇ョ▼搴忓湪娴嬭瘯鏃剁敱浜嶥elphi涔熺敓鎴愪簡姝ょ被瀹炰緥绐椾綋锛屾墍浠ヤ細鍑虹幇鎻愮ず妗嗭紝鍙湁鍏抽棴Delphi鍚庡崟鐙繍琛岀▼搴忔墠鑳藉疄鐜般

鎵撳嵃 | 鏀惰棌姝ら〉 |  鎺ㄨ崘缁欏ソ鍙 | 涓炬姤
涓婁竴绡 涓嬩竴绡
 

璇勫垎锛0

鍙戣〃璇勮
鏌ョ湅鍏ㄩ儴鍥炲銆愬凡鏈0浣嶇綉鍙嬪彂琛ㄤ簡鐪嬫硶銆