摘要：
//声明: Beep( dwFreq: DWORD; {声音频率} dwDuration: DWORD {声音长度} ): BOOL; //下面会以国际标准音的高度发声, 持续 1 秒钟 begin Windows.Beep(440, 1000); {注意: 如果没有 Windows 前缀, 调用的是另一个函数} end; 阅读全文
posted @ 2008-02-07 22:48
万一
阅读(4038)
评论(3)
推荐(0)
摘要：
//声明: GetVersionEx( var lpVersionInformation: TOSVersionInfo {参数是一个结构} ): BOOL; //结构 TOSVersionInfo 是 _OSVERSIONINFOA 的重命名 _OSVERSIONINFOA = record dwOSVersionInfoSize: DWORD; ... 阅读全文
posted @ 2008-02-07 22:22
万一
阅读(6118)
评论(4)
推荐(1)
摘要：
//声明: GetVersion: DWORD; //举例: var d: DWORD; begin d := GetVersion; ShowMessage(IntToStr(d)); {170393861; 这是我现在使用的系统} end; 阅读全文
posted @ 2008-02-07 21:50
万一
阅读(4245)
评论(0)
推荐(0)
摘要：
//声明: GetUserName( lpBuffer: PChar; {缓冲区} var nSize: DWORD {缓冲区大小} ): BOOL; //举例: var arr: array[0..254] of Char; d: DWORD; begin d := SizeOf(arr); GetUserName(arr, d); ShowMessage(... 阅读全文
posted @ 2008-02-07 21:27
万一
阅读(4520)
评论(3)
推荐(0)
摘要：
//声明: GetTickCount: DWORD; {无参数; 返回系统已启动的时间(毫秒)} //举例: var t: DWORD; begin t := GetTickCount; ShowMessage(IntToStr(t)); end; 阅读全文
posted @ 2008-02-07 20:43
万一
阅读(4278)
评论(0)
推荐(0)
摘要：
//声明: GetTempFileName( lpPathName: PChar; {路径} lpPrefixString: PChar; {前缀} uUnique: UINT; {指定生成文件名的数字, 文件名将根据参数2、参数3来生成} lpTempFileName: PChar {文件名需要的缓冲区} ): UINT; ... 阅读全文
posted @ 2008-02-07 19:47
万一
阅读(16323)
评论(8)
推荐(1)
摘要：
//声明: GetTempPath( nBufferLength: DWORD; {缓冲区大小} lpBuffer: PChar {缓冲区} ): DWORD; {返回实际长度} //举例: var arr: array[0..MAX_PATH] of Char; num: DWORD; begin num := GetTempPa... 阅读全文
posted @ 2008-02-07 18:59
万一
阅读(14144)
评论(0)
推荐(1)
摘要：
//声明: GetSystemDirectory( lpBuffer: PChar; {缓冲区} uSize: UINT {缓冲区大小} ): UINT; {返回实际长度} //举例: var arr: array[0..MAX_PATH] of Char; num: UINT; begin num := GetSystemDirectory... 阅读全文
posted @ 2008-02-07 18:49
万一
阅读(6825)
评论(9)
推荐(1)
摘要：
//声明: GetWindowsDirectory( lpBuffer: PChar; {缓冲区} uSize: UINT {缓冲区大小} ): UINT; {返回实际长度} //举例: var arr: array[0..MAX_PATH] of Char; num: UINT; begin num := GetWindowsDirecto... 阅读全文
posted @ 2008-02-07 17:27
万一
阅读(5983)
评论(7)
推荐(0)
摘要：
//声明: GetWindowTextLength( hWnd: HWND {窗口句柄} ): Integer; {返回窗口标题长度} //举例: var i: Integer; begin i := GetWindowTextLength(Self.Handle); ShowMessage(IntToStr(i)); end; 阅读全文
posted @ 2008-02-07 16:30
万一
阅读(4066)
评论(0)
推荐(0)
摘要：
//声明: SetCursorPos( X: Integer; Y: Integer ): BOOL; {如果不在 ClipCursor 函数设置矩形区域内，系统会区域内自动调整} //举例: begin SetCursorPos(0, 0); {鼠标移动到左上角} end; 阅读全文
posted @ 2008-02-07 15:51
万一
阅读(6709)
评论(0)
推荐(0)
摘要：
//声明: GetCursorPos( var lpPoint: TPoint {POINT 结构指针, 接收鼠标指针的屏幕坐标} ): BOOL; //举例: var pt: TPoint; begin GetCursorPos(pt); ShowMessage(Format('ScreenX: %d; ScreenY: %d', [pt.X, pt.Y])); end; ... 阅读全文
posted @ 2008-02-07 15:40
万一
阅读(4416)
评论(0)
推荐(0)
摘要：
//声明: SetComputerName( lpComputerName: PChar {新名称串指针} ): BOOL; //举例: var s: string; begin s := 'NewName'; if SetComputerName(PChar(s)) then ShowMessage(s) else ShowMessage('改名... 阅读全文
posted @ 2008-02-07 13:41
万一
阅读(3523)
评论(0)
推荐(1)
摘要：
//声明: GetWindowText( hWnd: HWND; {窗口句柄} lpString: PChar; {接收文本的缓冲区的指针} nMaxCount: Integer {指定缓冲区大小, 其中包含NULL字符; 如果文本超出，会被被截断} ): Integer; {返回字符个数, 不包括中断的空字符; 如果标题为空或句柄无效, 则返回零... 阅读全文
posted @ 2008-02-07 11:36
万一
阅读(18115)
评论(22)
推荐(1)
摘要：
//声明: SetWindowText( hWnd: HWND; {窗口句柄} lpString: PChar {新标题串指针} ): BOOL; //举例: var s: string; begin s := '新标题'; SetWindowText(Handle, PAnsiChar(s)); end; 阅读全文
posted @ 2008-02-07 10:48
万一
阅读(11798)
评论(4)
推荐(0)
摘要：
//声明: GetDesktopWindow: HWND; {无参数; 返回桌面窗口的句柄} //举例: var h: HWND; begin h := GetDesktopWindow; ShowMessage(IntToStr(h)); end; 阅读全文
posted @ 2008-02-07 10:26
万一
阅读(6865)
评论(1)
推荐(0)
浙公网安备 33010602011771号