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

转载于 2010-11-12 19:03:00 发布 · 312 阅读

文章标签：

#library #application #user #api #windows #string

PB 专栏收录该内容

51 篇文章

订阅专栏

本文介绍了一种使用Windows API函数FindWindow(), BringWindowToTop(), 和 ShowWindow()的方法来确保应用程序仅运行一个实例。通过创建名为w_test的主窗口，并将其标题设置为TestWindow，然后在Application的Open事件中检查是否已有该标题的窗口存在。

问：请问如何限制应用程序只运行一次呢？
答：利用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 )