如何限制应用程序只运行一次

如何限制应用程序只运行一次?

问：请问如何限制应用程序只运行一次呢？

答：利用Windows的API函数FindWindow()、BringWindowToTop()、ShowWindow()可实现上述功能。

①定义API：
    Funtion ulong FindWindowA( ulong winhandle, string wintitle ) Library "user32" 
    Funtion uLong BringWindowToTop( ulong hwnd ) Library "user32" 
    Funtion uLong ShowWindow( ulong winhandle, int wincommand ) Library "user32" 

②创建主窗口"w_test"，将title设置为"Test Window" 

③在application的Open事件中加入如下代码: 
    ulong ulng_winhandle
    ulng_winhandle = FindWindowA( 0,"Test Window" ) 
    If ulng_winhandle > 0 Then 
        BringWindowToTop( ulng_winhandle ) 
        ShowWindow( ulng_winhandle, 5 ) 
        Return 
    End If 
    Open( w_test ) 

[注]FindWindow()函数

说明： 寻找窗口列表中第一个符合指定条件的顶级窗口。 返回值： ulong，找到窗口的句柄，如未找到相符窗口，则返回零。 参数 类型及说明 winhandle String，指向包含了窗口类名的空中止（C语言）字串的指针；或设为零，表示接收任何类。 wintitle String，指向包含了窗口文本（或标签）的空中止（C语言）字串的指针；或设为零，表示接收任何窗口标题。

BringWindowToTop()函数

说明： 将指定的窗口带至窗口列表顶部。倘若它部分或全部隐藏于其他窗口下面，则将隐藏的部分完全显示出来。该函数也对弹出式窗口、顶级窗口以及MDI子窗口产生作用。 返回值： ulong，非零表示成功，零表示失败。 参数 类型及说明 hwnd ulong，欲带至顶部的那个窗口的句柄。

ShowWindow()函数

说明： 控制窗口的可见性。 返回值： ulong，如窗口之前是可见的，则返回TRUE（非零），否则返回FALSE（零）。 参数 类型及说明 winhandle ulong，窗口句柄，要向这个窗口应用由wincommand指定的命令。 wincommand integer，为窗口指定可视性方面的一个命令。请用下述任何一个常数 0 隐藏窗口，活动状态给另一个窗口。 1 用原来的大小和位置显示一个窗口，同时令其进入活动状态。与9同。 2 最小化窗口，并将其激活 3 最大化窗口，并将其激活。 4 用最近的大小和位置显示一个窗口，同时不改变活动窗口。 5 用当前的大小和位置显示一个窗口，同时令其进入活动状态。 6 最小化窗口，活动状态给令一个窗口。 7 最小化一个窗口，同时不改变活动窗口。 8 用当前的大小和位置显示一个窗口，不改变活动窗口。 9 用原来的大小和位置显示一个窗口，同时令其进入活动状态。