发表于 2009-1-5 19:48
| 
妫娴嬬▼搴忔槸鍚﹁繍琛
鍙戝竷: 2008-6-26 20:32 | 浣滆: admin | 鏌ョ湅: 22娆
width="84%">妫娴嬬▼搴忔槸鍚﹁繍琛
鍦ㄦ煇浜涙儏鍐典笅锛屾垜浠紪鍐欑殑搴旂敤绋嬪簭鍚屾椂鍙兘鏈変竴涓疄渚嬪湪鍐呭瓨涓繍琛岋紝渚嬪鏈嶅姟鍣ㄧ▼搴忋侀渶瑕佺嫭鍗犳煇璁惧鐨勭▼搴忥紝鐢氳嚦鎴戜滑浠呬粎鏄绋嬪簭鍚屾椂鍙湁涓涓疄渚嬭繍琛岋紙濡俇ltraEdit灏辨槸杩欐牱鍋氱殑锛岃浣犱笉鑳藉悓鏃惰繍琛屽涓猆ltraEdit锛夈傝瀹炵幇姝ゅ姛鑳斤紝闇瑕佸湪绋嬪簭涓姞涓鐐瑰垽鏂殑浠ｇ爜锛屽湪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鍚庡崟鐙繍琛岀▼搴忔墠鑳藉疄鐜般
