VFP 愛用者社區

[Ruey]

1.範例1
m.C_NAME=C_NAME &&公司名稱
DECLARE INTEGER FindWindow IN User32.DLL AS Find_window STRING,STRING
IF FIND_WINDOW(0,M.c_name) <> 0
N = FIND_WINDOW(0,m.c_name)
　 = MESSAGEBOX('對不起，本程式已經啟動,請查看任務欄！',48,'提示...系統資源省點用哦……^_^')
RETURN 0
ENDIF


2.範例2
DECLARE INTEGER FindWindow IN Win32api STRING, STRING
DECLARE LONG BringWindowToTop IN Win32API LONG
DECLARE LONG ShowWindow IN Win32API LONG, LONG
CTITLE="【 酒 店 管 理 系 統 】"
m.LNHWND=FINDWINDOW(0,CTITLE)
IF LNHWND<>0
WAIT WINDOW "重 複 提 示 : 程 序 已 經 運 行 !" AT SROWS()/2-3,(SCOL()-LEN(CTITLE))/2 TIMEOUT 2
BRINGWINDOWTOTOP(m.LNHWND)
SHOWWINDOW(m.LNHWND,3)
QUIT
ENDIF

[liangszpt]

对于范例一，我不是很明白怎么做，请各位指教

[syntech]

哪邊不懂,請詳述.

[liangszpt]

[syntech]

c_name 是 "視窗標題" 或"執行檔名稱",不是什麼公司名稱

msdn
--------------
FindWindow Function

--------------------------------------------------------------------------------


The FindWindow function retrieves a handle to the top-level window whose class name and window name match the specified strings. This function does not search child windows. This function does not perform a case-sensitive search.

To search child windows, beginning with a specified child window, use the FindWindowEx function.


Syntax

HWND FindWindow( LPCTSTR lpClassName,
LPCTSTR lpWindowName
);
Parameters

lpClassName
[in] Pointer to a null-terminated string that specifies the class name or a class atom created by a previous call to the RegisterClass or RegisterClassEx function. The atom must be in the low-order word of lpClassName; the high-order word must be zero.
If lpClassName points to a string, it specifies the window class name. The class name can be any name registered with RegisterClass or RegisterClassEx, or any of the predefined control-class names.

If lpClassName is NULL, it finds any window whose title matches the lpWindowName parameter.

lpWindowName
[in] Pointer to a null-terminated string that specifies the window name (the window's title). If this parameter is NULL, all window names match.
Return Value

If the function succeeds, the return value is a handle to the window that has the specified class name and window name.

If the function fails, the return value is NULL. To get extended error information, call GetLastError.

[freehotpc]

我是这样做的：

set talk off
close all
clea all

if not "VFP"$home()
set defa to Home()
endif

if fcreate("main.tmp")=-1
_Screen.Visible=.f.
=MessageBox("本程序已在使用中！",0+48+0,"重复运行")
on SHUTDOWN
quit
endif

...