-
系统函数与API硬件（在Delphi中）
资源介绍
API硬件与系统函数(delphi) 很详细的文档哦。
WinAPI: GetComputerName - 获取计算机名称
//声明:
GetComputerName(
lpBuffer: PChar; {缓冲区}
var nSize: DWORD {缓冲区大小}
): BOOL;
________________________________________
//举例:
var
arr: array[0..MAX_COMPUTERNAME_LENGTH] of char;
d: DWORD;
begin
d := SizeOf(arr);
GetComputerName(arr, d);
ShowMessage(arr);
end;
________________________________________
Api 函数: GetCursorPos 与转换
//获取鼠标在窗体中的当前位置
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
.......
- 上一篇: c/c++程序设计学习与实验系统
- 下一篇: vb.net源码获取硬盘id硬盘序列号和cpuid