请问下,如何取得本机计算机名。急用。
程序是怎么样的。
程序是怎么样的。
解决方案 »
- fastreport 导出 excel 后界面非常乱,根本就不能看,该如何调整才能完美导出
- 怎样使用delphi打cab包?
- 哪有delphi6的quickrep3.62
- DCOM的一些困惑,请专家指引
- 关于TADOconnect的一个问题(怎么消除database login窗口)
- 请PE结构和数据结构高手来取分(300分)
- 向全中国所有在第一线抢救SARS的医务医院致敬!!!!⑶
- 谁有delphi的开发规范,100相赠!!
- 系统服务程序里如何启动外部exe程序
- tms dbadvgrid 滚动条闪烁问题。
- 请问Dephi里面怎么调用.net写的web服务??
- Report Machine 如何设置页面大小
var
ComputerName: array[0..MAX_COMPUTERNAME_LENGTH+1] of char;
Size:Cardinal;
begin
Size:=MAX_COMPUTERNAME_LENGTH+1;
GetComputerName(ComputerName,Size);
ShowMessage(StrPas(ComputerName));
end;
BOOL GetComputerName( lpBuffer, // address of name buffer
LPDWORD nSize // address of size of name buffer
);
//Delphi
function GetComputerName(lpBuffer: PChar; var nSize: DWORD): BOOL;
ParameterslpBuffer
Points to a buffer to receive the null-terminated character string containing the computer name. nSizePoints to a variable that specifies the maximum size, in characters, of the buffer. This value should be large enough to contain MAX_COMPUTERNAME_LENGTH + 1 characters. 返回值:如果函数成功,返回非零值,
及参数lpBuffer包含计算机名字符串(以#0为结束).
参数nSize包含返回的计算机名的长度(不包含结束符#0).
如果函数失败,返回零.如想得到错误信息,调用GetLastError.
只用加一个NMDayTime组件,再加代码如下:
procedure TForm1.botton1Click(Sender: TObject);
begin
edit1.Text:=NMDayTime1.LocalIP;
end;