procedure tmain.create(sender:tobject);
var
hold:string;
found:HWND;
zappname:array[0..127]of char;
begin
//----------------限制程序执行次数----------------------
hold:=application.Title;
application.Title:='我的系统...'+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;
注:程序运行时只创建datamodule模块.当datamodule里的链接数据库函数链接成功后.创建Frm_Login登录窗体;并且显示;
当输入密码正确以后创建Frm_Main并且最小化Frm_Main窗体到系统任务栏;
请问如果才能限制程序执行次数?????
谢谢大家!!!
var
hold:string;
found:HWND;
zappname:array[0..127]of char;
begin
//----------------限制程序执行次数----------------------
hold:=application.Title;
application.Title:='我的系统...'+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;
注:程序运行时只创建datamodule模块.当datamodule里的链接数据库函数链接成功后.创建Frm_Login登录窗体;并且显示;
当输入密码正确以后创建Frm_Main并且最小化Frm_Main窗体到系统任务栏;
请问如果才能限制程序执行次数?????
谢谢大家!!!
解决方案 »
- 谁知道delphi有没有新版本发布阿
- 亦關組件的問題
- 如何更改DbGrid中某一列的所有值,并且更新
- 使用本地的.DB数据库的疑问???请指点
- 把edit1.text中的内容转化成16进制 为什末不行!!!
- 9527请进
- 那里有Delphi中开发和使用Webservice的电子图书?
- 今天我掉到API堆里了,您们说说API到底占了您们多少精力?我算晕了~
- 啊!这个问题在三个论坛上问过了,总分240!--- 用 FileAge(C:\\abc.txt) 函数可以得到指定文件的修改时间,有没有类似的函数可以得到指定文件的创建时间?
- 如何将光标定位于memo的某行首位?
- C/S结构非法关机问题
- combobox的数据更新问题!????求教!!
http://community.csdn.net/Expert/topic/5243/5243555.xml?temp=.2997553
不好意思我打错了一个字.真的很抱歉;
我的问题是:如何去限制程序运行次数....而不是执行次数;
谢谢...
//程序开始时,定个名字如:YourProjName,创建互斥体
hMutex := CreateMutex(nil, False, 'YourProjName');
if GetLastError = ERROR_ALREADY_EXISTS then
Halt;
程序结束时
ReleaseMutex(hMutex); // release the mutex as a politeness
CloseHandle(hMutex);