我做一小程序,我想让程序在某个机器上运行的时候,可以自动得到该机器的机器名~!~!
怎么做啊~!~!~
怎么做啊~!~!~
解决方案 »
- CSDN新人,新手上路,谁给提点建议!
- SCOKET批量接收文件?
- delphi 中关于mdi 子窗口关闭的问题,各位在开发中可能遇到过......跟贴有分
- 请在使用Delphi 2005的人、使用Delphi 2005在做项目的人举手-答者皆有分!
- 有那位考过浙大MSE的,请问面试考什么,有历年的试卷吗?这些学校都不提供。
- 散分祝福相識的朋友中秋快樂!
- 我利用ServerHTTPXML取得了一个OleVariant类型回来(里面是二进制),怎么才能把它转换成流或者其他的什么类型,然后存成文件。顶者有分
- 键盘上的方向键的acsii码值是什么?在线等!!!
- MDI子窗体的如何通过FindWindow查找到!!!!外部程序来查找?
- 怎么关闭父窗体中的子窗体?
- 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;