X xzhxu2006 Unregistered / Unconfirmed GUEST, unregistred user! 2006-04-29 #1 我有三个Edit控件，想分别在各个控件中自动显示本机的计算机名，网卡地址，CPU的地址 请高手指点
A asonlife Unregistered / Unconfirmed GUEST, unregistred user! 2006-04-29 #3 procedure TForm1.BitBtn1Click(Sender: TObject); var ComputerName: array[0..MAX_COMPUTERNAME_LENGTH+1] of char; Size: Cardinal; result:string; begin result:=''; Size := MAX_COMPUTERNAME_LENGTH+1; GetComputerName(ComputerName, Size); Result:=StrPas(ComputerName); edit1.text:=result;//获得本机标识(计算机名) end;
procedure TForm1.BitBtn1Click(Sender: TObject); var ComputerName: array[0..MAX_COMPUTERNAME_LENGTH+1] of char; Size: Cardinal; result:string; begin result:=''; Size := MAX_COMPUTERNAME_LENGTH+1; GetComputerName(ComputerName, Size); Result:=StrPas(ComputerName); edit1.text:=result;//获得本机标识(计算机名) end;
X xianguo Unregistered / Unconfirmed GUEST, unregistred user! 2006-04-29 #4 1、BOOL GetComputerName( LPTSTR lpBuffer, // address of name buffer LPDWORD nSize // address of size of name buffer ); 2、http://www.delphibbs.com/keylife/iblog_show.asp?ac=1&xid=13461 3、CPU序列号吧？ 在大富翁论坛里搜索一下，有很多这样的帖子
1、BOOL GetComputerName( LPTSTR lpBuffer, // address of name buffer LPDWORD nSize // address of size of name buffer ); 2、http://www.delphibbs.com/keylife/iblog_show.asp?ac=1&xid=13461 3、CPU序列号吧？ 在大富翁论坛里搜索一下，有很多这样的帖子
