如何使delphi编译的可执行文件不能重复打开? 这问题老帖子太多了!你找一下吧。或者查找 CreateMutex 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Application.Initialize; CreateMutex(nil, True, 'my_junhua_soft'); if GetLastError = ERROR_ALREADY_EXISTS then begin application.MessageBox('程序已经运行了!','提示信息',mb_ok+mb_iconinformation); application.Terminate; end; Application.CreateForm(TDataModule1, DataModule1); Application.CreateForm(Tmainform, mainform); Application.CreateForm(Tloginform, loginform); loginform.Showmodal; Application.CreateForm(Tnavigateform, navigateform); mainform.Hide; mainform.show; Application.Run; var g_app:long;InterlockedIncrement(g_app);if (g_app>1) then.......... procedure TForm1.FormCreate(Sender: TObject); var ZAppName: array[0..127] of char; Hold: String; Found: HWND; Found: HWND; begin Hold := Application.Title; Application.Title := 'OnlyOne' + IntToStr(HInstance); // 暂时修改窗口标题 StrPCopy(ZAppName, Hold); // 原窗口标题 Found := FindWindow(nil, ZAppName); // 查找窗口 Application.Title := Hold; // 恢复窗口标题 if Found<>0 then begin // 若找到则激活已运行的程序并结束自身 ShowWindow(Found, SW_RESTORE); Application.Terminate; end; end; 各位高手帮帮忙啊 关于控件combobox 求音频格式wav转换成mp3格式的delphi的源代码 80分请问关于DbGrid标题兰排序和内容显示的问题!(不得结果也揭帖) delphi程序员的工作问题 请大家指点一下,刚开始入门delphi用那本书比较好。在线等!多谢了 高分答疑问!分布式开发 如何显示不完整字段的完整信息?求教。 怎样把参数当作数据库的一列来返回? IntraWeb/EWF/Asp.Net,你都用哪个?why? newyj(老鬼前辈),能再帮帮忙吗? 哪里有DynamicSkinForm 3.98 源码版下载 为了明白这个SQL的问题,我出次血,再开一贴。
CreateMutex(nil, True, 'my_junhua_soft');
if GetLastError = ERROR_ALREADY_EXISTS then
begin
application.MessageBox('程序已经运行了!','提示信息',mb_ok+mb_iconinformation);
application.Terminate;
end;
Application.CreateForm(TDataModule1, DataModule1);
Application.CreateForm(Tmainform, mainform);
Application.CreateForm(Tloginform, loginform);
loginform.Showmodal;
Application.CreateForm(Tnavigateform, navigateform);
mainform.Hide;
mainform.show;
Application.Run;
if (g_app>1) then
.....
.....
var
ZAppName: array[0..127] of char;
Hold: String;
Found: HWND;
Found: HWND;
begin
Hold := Application.Title;
Application.Title := 'OnlyOne'
+ IntToStr(HInstance); // 暂时修改窗口标题
StrPCopy(ZAppName, Hold); // 原窗口标题
Found := FindWindow(nil, ZAppName); // 查找窗口
Application.Title := Hold; // 恢复窗口标题
if Found<>0 then begin
// 若找到则激活已运行的程序并结束自身
ShowWindow(Found, SW_RESTORE);
Application.Terminate;
end;
end;