请问如果能不让程序被开启2次 例如1.exe 当第1次双击可以正常打开但是我在打开一次的情况下还能再开一个,请问如何能判断已经开过了,第2次一开就关掉或直接不能开呢?? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 //给你一个例子program Project1;uses Forms, Windows, Dialogs, Unit1 in 'Unit1.pas' {Form1};const WinTitle='Test';{$R *.res}begin Application.Initialize; if (FindWindow(nil, PChar(WinTitle))>0) then begin ShowMessage('程序已在运行'); Application.Terminate; end; Application.Title := WinTitle; Application.CreateForm(TForm1, Form1); Application.Run;end. program Project1;uses Forms, Windows, Dialogs, Unit1 in 'Unit1.pas' {Form1};const WinTitle='Test';{$R *.res}begin Application.Initialize; if (FindWindow(nil, PChar(WinTitle))>0) then begin ShowMessage('程序已在运行'); Application.Terminate; end; Application.Title := 'Test'; //要这样改不然会在下次打开的工程的时候出错 Application.CreateForm(TForm1, Form1); Application.Run;end. 靠, 这位兄弟中午给你回答的问题现在都改成非技术专区了,又是那个arri干得好事.白回答了……, arri做事太绝了。下面三个贴子http://community.csdn.net/Expert/topic/4290/4290890.xml?temp=.4767572http://community.csdn.net/Expert/topic/4290/4290788.xml?temp=.3854334http://community.csdn.net/Expert/topic/4290/4290793.xml?temp=8.367556E-02我们素不相识, 只是好心帮你。 楼上谢谢你,但是我用的是delphi6 Application.Title := WinTitle;一加就不能运行不知道为什么 方法很多:1.用findwindow,加一个没用的form,让其自动创建,执行时检查这个form,若存在就termiate.2.可以设置一个原子。 怎样自动加1? 请问什么是vcl? 怎样在DLL中共享TDATABASE? 控件安装包怎么制作啊? 高分求教一个关于类的问题 类如何相互调用? 关于ActiveX Library的问题 自定义控件组装问题 Array type required! 一个小型的管理系统到底值多少钱?怎么样给程序定价?》 谁在阻碍金山WPS的推广?是价格、功能?还是用户习惯? 如何将dbgrideh里面的数据的数据导出到excel或打印出来
program Project1;uses
Forms, Windows, Dialogs,
Unit1 in 'Unit1.pas' {Form1};const WinTitle='Test';
{$R *.res}begin Application.Initialize;
if (FindWindow(nil, PChar(WinTitle))>0) then begin
ShowMessage('程序已在运行');
Application.Terminate;
end;
Application.Title := WinTitle;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Forms, Windows, Dialogs,
Unit1 in 'Unit1.pas' {Form1};const WinTitle='Test';
{$R *.res}begin Application.Initialize;
if (FindWindow(nil, PChar(WinTitle))>0) then begin
ShowMessage('程序已在运行');
Application.Terminate;
end;
Application.Title := 'Test'; //要这样改不然会在下次打开的工程的时候出错
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
又是那个arri干得好事.
白回答了……, arri做事太绝了。
下面三个贴子
http://community.csdn.net/Expert/topic/4290/4290890.xml?temp=.4767572
http://community.csdn.net/Expert/topic/4290/4290788.xml?temp=.3854334
http://community.csdn.net/Expert/topic/4290/4290793.xml?temp=8.367556E-02我们素不相识, 只是好心帮你。
Application.Title := WinTitle;一加就不能运行不知道为什么
1.用findwindow,加一个没用的form,让其自动创建,执行时检查这个form,若存在就termiate.
2.可以设置一个原子。