delphi,只允许让程序运行一次。
从上层提供的代码以及网页提供的符号不仅允许程序运行两次。但是此网页上的代码具有优势。
实现的原则是创建一个互斥对象,然后运行程序。
在网页上,它相对详细,但是由于它在项目文件中写了一个符号,并且现在在德尔福教科书中的项目较少,或者在初始教科书中的项目较少,因此当作者看到此时,作者会感到困惑。
一些! 哈哈,我不知道我说的是真的。
源代码应该是这样的:Programproject1 ; useforms,Windows,unit1 in'unit1 .pas'{form1 }; {$ r*。
moudlename:string; prossivenumwndproc(hwnd:thandle; param:cardinal;):bool; stdcall; varclassname,winmoudlename:string; Wininstance:Thandle; 开始:= true; setlegth(className,1 00); GetClassName(HWND,PCAR /获取当前通行证窗口的类别名称:= PCHAR(className); //在系列之后添加最后一封信以确定系列ifclassName = Toform1 .ClassNameThen //比较StableInstance: = getwindowlong (hwnd,gwl_hinstance); 项目的全球变量。
ge tmdulefilename(hinstance,pChaar(moudlename),长度(moudlename))); //获取程序的名称moudlename:= pchaar(moudlename)undwindow(findhid); 结尾; 结尾。
这有点困难,所以我写了自己,它与上面提到的相似,只是添加了一些符号(有点混乱,只读它, - !减少。
Programproject1 ; useforms,Windows,Messages,Unit1 In'unit1 .pas'{form1 }; {$ r*。
moudlename:string; ProcessEnumwndProc(hwnd:thandle; param:cardinal):bool; varcla sname,winmoudlename:string; Wininstance:Thandle; 开始:= true; setlegth(className,1 00); getClassName(hwnd,pchaar(className),length(className))= pchaar(className); getwindowlong(hwnd,gwl_hinstance); getMduleFilename(Wininstance,PCHAAR(Win Moudlename),Winmoudlenme); //获取当前遍历窗口的程序文件的名称:= pChaar(winmoudlename); BeginFindHid:= hwnd; // Findhid被发现可以保存项目Esult的全局变量:= false; //找到它的终结结束了; 结尾; 结尾; Varhan:Thandle; beginhmutex:= createMutex(nil,false,'hkonecopy'); ifwaitforsingleobject(hmutex,0)。
CreateForm(Trform1 ,Form1 ); application.run; EndelsebeginSettletlegth(Moudlename,1 00); getMduleFilename(Hista nce,pChaar(moudlename),长度(moudlename)); //获取程序的名称moudlename:= pchaar(moudlename); Enumwindows(EnumwndProc,0); (nil,'form1 '); // form1 是nameifhan <> 0thenbeginSendMessage(Han,wm_syscocommand,sc_restore,0); 结尾; 结尾; SetForegroundWindow(Findhid); 结尾; 结尾。
网页出现undefined是什么原因
当在网页上浏览时,通常意味着在页面上没有正确定义或找不到的变量。这种情况在开发网站期间很常见,这可能是由于可变定义不准确,数据转换错误或服务器无法正确提供必要的信息。
“未定义”代表编程中的特殊价值,以确定尚未分配变量。
在不同的编程语言(例如C的零)中,Java的零,Pythons没有,Ruby的零,所有代表“不”的相似值。
当您遇到未定义的错误时,问题通常位于服务器端或客户端(浏览器)上。
要解决网站上未定义的问题,您可以首先尝试更新页面(按F5 )。
如果错误保持不变,则可能是浏览器有错误的死亡或程序崩溃。
是侧面加载过程中的问题,导致“未定义”屏幕。
打开网页显示nil怎么办
雷霆出口。步骤2 :首先更改字母-Muri,以查看是否有用。
如果恢复没有用,请考虑再次安装系统。
尼罗河是值回报值
undefined的意思是什么?
未定义是指页面上的一个未知错误。该定义无法解决该定义,因为它无法求解或求解站点的定义。
网页,您不在乎。
在另一个时间查看网页。
未定义是用于指示尚未设置变量的特殊值。
返回特殊值以报价未定义值。
实际上,大多数计算机仅表示代表“ null”的“非ull”的值,这通常是源代码的问题。
服务器。
扩展信息:为变量变量定义变量的变量是一个变量,如果变量为变量,则变量是一个变量 其他选择显然是没有竹子的可用性,也没有与JavaScript的历史相关的。
JavaScript至1 9 9 5 年