Access:API使用集锦

来源：accessQQ 作者：不祥 出处：巧巧读书 2005-11-01 进入讨论组

• 关 键 词：
• windows
• access
• flash
• 操作系统
• cpu

下一页 1 2 3 4 5 6 

记载Windows使用的时间

　　有时候你需要记下每次Windows开启和关闭的时间，下面这个小程序就可以完成这个功能，你可以把它放在Windows开始菜单的“启动”文件夹里面，这样当你进入Windows时，这个小程序就会自动启动（不可见），并在你指定的文件中写下当时的时间，在你推出Windows系统时，小程序会关闭并记下离开的时间，并关闭记录文件。

 

Private Sub Form_Load()

Left = -10000

Top = -10000

Open "c:\apps\log.txt" For Append As #1

Print #1, "On: " & CStr(Now)

Close #1

End Sub


Private Sub Form_Unload(Cancel As Integer)

Open "c:\apps\log.txt" For Append As #1

Print #1, "Off:" & CStr(Now)

Close #1

End

End Sub

怎样关闭一个正在运行的程序

　　你可以使用API函数FindWindow和PostMessage去寻找指定的窗口，并关闭它。下面的例子教给你怎样找到并关掉一个Caption为“Caluclator”的程序。

Dim winHwnd As Long

Dim RetVal As Long

winHwnd = FindWindow(vbNullString, "Calculator")

Debug.Print winHwnd

If winHwnd <> 0 Then

RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)

If RetVal = 0 Then

MsgBox "置入消息错误！"

End If

Else

MsgBox "Calculator没有打开！"

End If

http://www.qqread.com/access/n425295050.html 更多内容请看Access专题，或进入讨论组讨论。

下一页 1 2 3 4 5 6 

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：Microsoft Access中文帮助BUG

较新的文章：在Access中使用“存储过程”(二)