delphi中，让程序只运行一次的方法(3)
文章作者 100test 发表时间 2008:03:31 12:08:33
来源 100Test.Com百考试题网
函数形式：
BOOL EnumWindows(WNDENUMPROC lpEnumFunc, //callback function
LPARAM lParam). //application-defined value
其中 WNDENUMPROC 是回调函数，回调函数中写自己想做的*作，当调用EnumWindows的时候，每次遇到一个窗口，系统就调用一次你的WNDENUMPROC ，然后把窗口句柄传给你。
EnumWindows
函数成功则返回非0值；
函数失败则返回0值；
EnumWindowsProc 返回0值，同样导致函数EnumWindows 返回0值。
另外，该函数不列举子窗口，除了几种拥有WS_CHILD 风格的系统所属窗口。
MSDN：
The EnumWindows function does not enumerate child windows,with the exception of a few top-level windows owned by the system that have the WS_CHILD style.
使用举例：
先声明一个EnumWindowsProc ，比如：
BOOL CALLBACK EnumWindowsProc_1(HWND hwnd,LPARAM lparam) .
然后实现此函数，写入自己想做的事情，比如：
BOOL CALLBACK EnumWindowsProc_1(HWND hwnd,LPARAM lparam)
{ char lpWinTitle[256].
::GetWindowText(hwnd,lpWinTitle,256-1).
CString m_strTitle.
m_strTitle.Format("%s",lpWinTitle).
if(m_strTitle.Find("Internet Explorer")!=-1)
{ AfxMessageBox("这是一个IE窗口！") . }
return TRUE .
}
然后就可以在其他地方调用EnumWindows的时候使用回调函数，比如：
::EnumWindows(EnumWindowsProc_1,0) .
这样每当遇到IE窗口时，就会进行 提示“这是一个IE窗口！” 的*作。
方法二：
不用互斥对象。
我们可以利用向系统添加全局原子的方法，来防止多个程序实例的运行。全局原子由Windows 系统负责维持，它能保证其中的每个原子都是唯一的，管理其引用计数，并且当该全局原子的引用计数为0时，从内存中清除。我们用GlobalAddAtom 函数向全局原子添加一个255个字节以内的字符串，用GlobalFindAtom来检查是否已经存在该全局原子，最后在程序结束时用GlobalDeleteAtom函数删除添加的全局原子。示例如下：
Uses Windows
const iAtom=‘SingleApp’.
begin
if GlobalFindAtom(iAtom)=0 then
begin
GlobalAddAtom(iAtom).
Application.Initialize.
Application.CreateForm(TForm1,Form1).
Application.Run.
GlobalDeleteAtom(GlobalFindAtom(iAtom)).
end
else
MessageBox(0,‘You can not run a second copy of this App’,‘’,mb_OK).
end.
利用全局原子的引用计数规则，我们还可以判断当前共运行了该程序的多少个实例：
var i:Integer.
begin
I:=0.
while GlobalFindAtom(iAtom)<>0 do
begin
GlobalDeleteAtom(GlobalFindAtom(iAtom)).
i:=i＋1.
end.
ShowMessage(IntToStr(I)).
end.
var arrBaiduCproConfig=new Array().
arrBaiduCproConfig[ uid ] =65193.
arrBaiduCproConfig[ n ] = exam8cpr .
arrBaiduCproConfig[ tm ] =30.
arrBaiduCproConfig[ cm ] =35.
arrBaiduCproConfig[ um ] =34.
arrBaiduCproConfig[ w ] =575.
arrBaiduCproConfig[ h ] =60.
arrBaiduCproConfig[ wn ] =2.
arrBaiduCproConfig[ hn ] =1.
arrBaiduCproConfig[ ta ] = right .
arrBaiduCproConfig[ tl ] = bottom .
arrBaiduCproConfig[ bu ] =0.
arrBaiduCproConfig[ bd ] = #ffffff .
arrBaiduCproConfig[ bg ] = #ffffff .
arrBaiduCproConfig[ tt ] = #0000ff .
arrBaiduCproConfig[ ct ] = #333333 .
arrBaiduCproConfig[ url ] = #666666 .
arrBaiduCproConfig[ bdl ] = #ffffff .
arrBaiduCproConfig[ rad ] =1.
document.write(baiduCproIFrame()).