万一 - 博客园

2008年2月8日

摘要： //声明: MessageBeep( uType: UINT {参数是个常数; 根据不同的常数发出不同的声音, 也就是调用了不同的 wav} ): BOOL; //参数 uType 可选值: MB_OK = 0; MB_ICONHAND = 16; MB_ICONQUESTION = 32; MB_ICONEXCLAMATION = 48... 阅读全文

posted @ 2008-02-08 10:33 万一阅读(6569) 评论(0) 推荐(0)

2008年2月7日

WinAPI: Beep - 简单发声

摘要： //声明: Beep( dwFreq: DWORD; {声音频率} dwDuration: DWORD {声音长度} ): BOOL; //下面会以国际标准音的高度发声, 持续 1 秒钟 begin Windows.Beep(440, 1000); {注意: 如果没有 Windows 前缀, 调用的是另一个函数} end; 阅读全文

posted @ 2008-02-07 22:48 万一阅读(4038) 评论(3) 推荐(0)

WinAPI: GetVersionEx - 获取系统版本详细信息

摘要： //声明: GetVersionEx( var lpVersionInformation: TOSVersionInfo {参数是一个结构} ): BOOL; //结构 TOSVersionInfo 是 _OSVERSIONINFOA 的重命名 _OSVERSIONINFOA = record dwOSVersionInfoSize: DWORD; ... 阅读全文

posted @ 2008-02-07 22:22 万一阅读(6118) 评论(4) 推荐(1)

WinAPI: GetVersion - 获取系统版本号

摘要： //声明: GetVersion: DWORD; //举例: var d: DWORD; begin d := GetVersion; ShowMessage(IntToStr(d)); {170393861; 这是我现在使用的系统} end; 阅读全文

posted @ 2008-02-07 21:50 万一阅读(4245) 评论(0) 推荐(0)

WinAPI: GetUserName - 获取当前用户名

摘要： //声明: 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)

WinAPI: GetTickCount - 获取系统已启动的时间

摘要： //声明: GetTickCount: DWORD; {无参数; 返回系统已启动的时间(毫秒)} //举例: var t: DWORD; begin t := GetTickCount; ShowMessage(IntToStr(t)); end; 阅读全文

posted @ 2008-02-07 20:43 万一阅读(4277) 评论(0) 推荐(0)

WinAPI: GetTempFileName - 生成一个临时文件名

摘要： //声明: GetTempFileName( lpPathName: PChar; {路径} lpPrefixString: PChar; {前缀} uUnique: UINT; {指定生成文件名的数字, 文件名将根据参数2、参数3来生成} lpTempFileName: PChar {文件名需要的缓冲区} ): UINT; ... 阅读全文

posted @ 2008-02-07 19:47 万一阅读(16323) 评论(8) 推荐(1)

WinAPI: GetTempPath - 获取临时文件夹路径

摘要： //声明: 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)

WinAPI: GetSystemDirectory - 返回 System 文件夹路径

摘要： //声明: 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)

WinAPI: GetWindowsDirectory - 获取 Windows 所在目录

摘要： //声明: 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)