如何限制应用程序在同一时刻只能运行一次?

ゝ一世哀愁。 2022-09-28 01:43 195阅读 0赞

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

答：利用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()函数**

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

**BringWindowToTop()函数**

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

**ShowWindow()函数**

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