WinAPI: GetDiskFreeSpaceEx - 获取磁盘容量信息
摘要：//声明: GetDiskFreeSpaceEx( lpDirectoryName: PChar; {磁盘根路径} var lpFreeBytesAvailableToCaller: TLargeInteger; {可用空间} var lpTotalNumberOfBytes: TLargeInteger; {总空间}...
阅读全文
posted @
2008-02-11 15:14
万一
阅读(5736)
推荐(0) 编辑
WinAPI: GetDiskFreeSpace - 获取磁盘组织与容量信息
摘要：//声明: GetDiskFreeSpace( lpRootPathName: PChar; {磁盘根路径} var lpSectorsPerCluster: DWORD; {一个簇内的扇区数} var lpBytesPerSector: DWORD; {一个扇区内的字节数} var lpNumberOfFreeClusters: DWO...
阅读全文
posted @
2008-02-11 14:55
万一
阅读(5985)
推荐(0) 编辑
WinAPI: GetKeyboardType - 获取键盘的类型信息
摘要：//声明: GetKeyboardType( nTypeFlag: Integer {0:键盘类型; 1:键盘子类型; 2:功能键数量} ): Integer; //举例: procedure TForm1.FormCreate(Sender: TObject); var i: Integer; List: TStringList; begin List := TStringL...
阅读全文
posted @
2008-02-11 10:37
万一
阅读(3156)
推荐(0) 编辑
WinAPI: GetSystemInfo - 获取系统信息
摘要：//声明: GetSystemInfo( var lpSystemInfo: TSystemInfo {} ); //TSystemInfo 是 _SYSTEM_INFO 结构的重定义: _SYSTEM_INFO = record case Integer of 0: ( dwOemId: DWORD); {返回计算机标识符, 已废弃} 1: ( ...
阅读全文
posted @
2008-02-11 10:11
万一
阅读(6360)
推荐(1) 编辑
WinAPI: MessageBeep - 播放一个系统声音
摘要：//声明: MessageBeep( uType: UINT {参数是个常数; 根据不同的常数发出不同的声音, 也就是调用了不同的 wav} ): BOOL; //参数 uType 可选值: MB_OK = 0; MB_ICONHAND = 16; MB_ICONQUESTION = 32; MB_ICONEXCLAMATION = 48...
阅读全文
posted @
2008-02-08 10:33
万一
阅读(6544)
推荐(0) 编辑
WinAPI: Beep - 简单发声
摘要：//声明: Beep( dwFreq: DWORD; {声音频率} dwDuration: DWORD {声音长度} ): BOOL; //下面会以国际标准音的高度发声, 持续 1 秒钟 begin Windows.Beep(440, 1000); {注意: 如果没有 Windows 前缀, 调用的是另一个函数} end;
阅读全文
posted @
2008-02-07 22:48
万一
阅读(4018)
推荐(0) 编辑
WinAPI: GetVersionEx - 获取系统版本详细信息
摘要：//声明: GetVersionEx( var lpVersionInformation: TOSVersionInfo {参数是一个结构} ): BOOL; //结构 TOSVersionInfo 是 _OSVERSIONINFOA 的重命名 _OSVERSIONINFOA = record dwOSVersionInfoSize: DWORD; ...
阅读全文
posted @
2008-02-07 22:22
万一
阅读(6097)
推荐(1) 编辑
WinAPI: GetVersion - 获取系统版本号
摘要：//声明: GetVersion: DWORD; //举例: var d: DWORD; begin d := GetVersion; ShowMessage(IntToStr(d)); {170393861; 这是我现在使用的系统} end;
阅读全文
posted @
2008-02-07 21:50
万一
阅读(4227)
推荐(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
万一
阅读(4499)
推荐(0) 编辑
WinAPI: GetTickCount - 获取系统已启动的时间
摘要：//声明: GetTickCount: DWORD; {无参数; 返回系统已启动的时间(毫秒)} //举例: var t: DWORD; begin t := GetTickCount; ShowMessage(IntToStr(t)); end;
阅读全文
posted @
2008-02-07 20:43
万一
阅读(4251)
推荐(0) 编辑
WinAPI: SetCursorPos - 设置鼠标指针位置
摘要：//声明: SetCursorPos( X: Integer; Y: Integer ): BOOL; {如果不在 ClipCursor 函数设置矩形区域内，系统会区域内自动调整} //举例: begin SetCursorPos(0, 0); {鼠标移动到左上角} end;
阅读全文
posted @
2008-02-07 15:51
万一
阅读(6663)
推荐(0) 编辑
WinAPI: GetCursorPos - 获取鼠标指针的当前位置
摘要：//声明: 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
万一
阅读(4391)
推荐(0) 编辑
WinAPI: SetComputerName - 更改计算机名称
摘要：//声明: 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
万一
阅读(3499)
推荐(1) 编辑
Api 函数: GetCursorPos 与转换
摘要：//获取鼠标在窗体中的当前位置 procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var str: string; begin str := Format('%d,%d',[X,Y]); ShowMessage(str)...
阅读全文
posted @
2008-01-22 17:49
万一
阅读(7189)
推荐(0) 编辑
WinAPI: GetComputerName - 获取计算机名称
摘要：//声明: GetComputerName( lpBuffer: PChar; {缓冲区} var nSize: DWORD {缓冲区大小} ): BOOL; //举例: var arr: array[0..MAX_COMPUTERNAME_LENGTH] of char; d: DWORD; begin d := SizeOf(arr); GetComputerN...
阅读全文
posted @
2007-12-12 00:09
万一
阅读(4039)
推荐(1) 编辑
管理
