VFP 愛用者社區

[KKKLYNN]

請問如何將系統已縮至最小的區塊,讓她自動放至最大!
我的公司erp系統正在擴建,而且還會持續一段時間
我是每到12點的時候螢幕出現訊息請她們下線(我更新程式&資料表格)
但若她們已將系統縮至最小或正使用word,ecxe等等軟體時就
看不到我的訊息!
不知可有方式讓以縮至最小的區塊,讓區塊彈出至最大l在螢幕上
以上謝謝!

[thornbird313]

如果操作系统是WIN2000或WIN2000以上版本，可以用信使服务给他们发消息。

下面是www.myf1.net/bbs上gz的一段程序：
----------------------------------------------------
长江发给黄河的消息
* WIN98 用户请打开 WINPOPUP 程序
* WIN2000 用户请开 Messenger 服务

#DEFINE CREATE_NEW 1
#DEFINE CREATE_ALWAYS 2
#DEFINE OPEN_EXISTING 3

#DEFINE FILE_ATTRIBUTE_NORMAL 128

#DEFINE GENERIC_READ 2147483648 && 0x80000000
#DEFINE GENERIC_WRITE 1073741824 && 0x40000000
#DEFINE GENERIC_ALL 268435456 && 0x10000000
#DEFINE MAXIMUM_ALLOWED 33554432 && 0x02000000
#DEFINE STANDARD_RIGHTS_ALL 2031616 && 0x001F0000

#DEFINE FILE_SHARE_READ 1
#DEFINE FILE_SHARE_WRITE 2
#DEFINE FILE_SHARE_DELETE 4
#DEFINE INVALID_HANDLE_value -1


DECLARE INTEGER CreateFile IN kernel32;
STRING lpFileName,;
INTEGER dwDesiredAccess,;
INTEGER dwShareMode,;
INTEGER lpSecurityAttributes,;
INTEGER dwCreationDisposition,;
INTEGER dwFlagsAndAttributes,;
INTEGER hTemplateFile

DECLARE INTEGER GetLastError IN kernel32

DECLARE INTEGER CloseHandle IN kernel32 INTEGER hObject

DECLARE INTEGER WriteFile IN Win32API;
INTEGER hFile,;
STRING @lpbuffer,;
INTEGER nNumberOfBytesToWrite,;
INTEGER @lpNumberOfBytesWritten,;
STRING @lpOverlapped

cMailslot = '\\黄河\mailslot\\messngr'

hFile = CreateFile(cMailslot, GENERIC_WRITE, FILE_SHARE_READ,;
0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)

IF hFile <> INVALID_HANDLE_value
? "File handle returned: ", hFile
* = CloseHandle (hFile)
ELSE
* 2 = ERROR_FILE_NOT_FOUND
* 3 = ERROR_PATH_NOT_FOUND
* 13 = ERROR_INVALID_DATA
* 87 = ERROR_INVALID_PARAMETER
? "Error code returned:", GetLastError()
RETURN
ENDIF

cSender = '长江'
cDest = '黄河'
cMessage = '你好！'+chr(13)+chr(10)+'俺是长江！'
cBuffer = cSender + Chr(0) + cDest + Chr(0) + cMessage + Chr(0) + Chr(0)
nBytesWritten = 0

= WriteFile(hFile, @cBuffer, Len(cBuffer), @nBytesWritten, 0)
= CloseHandle(hFile)