我做一小程序,我想让程序在某个机器上运行的时候,可以自动得到该机器的机器名~!~!
怎么做啊~!~!~
怎么做啊~!~!~
解决方案 »
- dll中的窗体dock问题
- 如何控制远程数据模块的安全性?不让别人自写客户端访问我的服务器!
- 局网用Socket传送文件12.1M用了1分3秒,还能快吗?
- DataModule
- “delphi对Excel操作中的画图和存储”的问题,求救。
- 请问如何把指针所指的地址写入ini文件?
- *.vsd文件用什么软件打开,哪里能找到这个软件?
- 程序以服务执行时,如何获取系统登陆用户?!
- TMD,转眼功夫,我的菜单不见了包括资源管理器的,IE的。。。。。。。。。有人黑我呀
- http://www.csdn.net/expert/topic/204/204522.shtm 请看?
- combox控件怎么显示多列
- 怎么解决数据库的超时问题了
function TForm1.read_computername:string;
var
Areg:Tregistry;
begin
Result:='';
Areg:=TRegistry.Create;
with Areg do
begin
Try
bootKey:=HKEY_LOCAL_MACHINE;
If OpenKey('SYSTEM\ControlSet001\Control\ComputerName\ComputerName',false) Then
Begin
Try
result:=:=ReadString('ComputerName');
Except
End;
End;
closekey;
Finally
Free;//destroy;
end;
End;
end;
2:api函数
function GetCompName:String;
var Buff:Array[0..64]of Char;
Len:Cardinal;
begin
Len:=64;
GetComputerName(@Buff,Len);
Buff[Len]:=#0;
Result:=Buff;
end;