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

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

答:利用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

用原来的大小和位置显示一个窗口,同时令其进入活动状态。

→我是小木鱼(Lag)