function ComputerName : String; var
CNameBuffer : PChar;
fl_loaded : Boolean;
CLen : ^DWord; begin GetMem(CNameBuffer,255);
New(CLen);
CLen^:= 255; fl_loaded := GetComputerName(CNameBuffer,CLen^); if fl_loaded then
ComputerName := StrPas(CNameBuffer)
else
ComputerName := 'Unkown'; FreeMem(CNameBuffer,255);
Dispose(CLen); end;
CNameBuffer : PChar;
fl_loaded : Boolean;
CLen : ^DWord; begin GetMem(CNameBuffer,255);
New(CLen);
CLen^:= 255; fl_loaded := GetComputerName(CNameBuffer,CLen^); if fl_loaded then
ComputerName := StrPas(CNameBuffer)
else
ComputerName := 'Unkown'; FreeMem(CNameBuffer,255);
Dispose(CLen); end;
解决方案 »
- 有关于整套数据库系统方面有可能产生的问题。
- 高高请进,我用的是DBTreeList控件,我想实现如下功能
- delphi中如何连接一个设置了数据库密码的ACCESS数据库呀?
- 怎样自动生成vcl的控件
- 急急急!关于Navigator的问题......
- 请教:关于DxDBGrid控件中录入中文时出现乱码的问题。
- 请问怎样才算数据与界面的分离。
- SQL SERVER中判断datatime 类型的zhi
- 如何了解delphi的开发环境?
- 在delphi里怎样把123456789.1234USD转变成英语的读法?
- 用http控件如何post?(详情见内) 请帮助我!
- How can I resize a dynamic component in a form's Resize event
var
ComputerName: array[0..MAX_COMPUTERNAME_LENGTH+1] of char;
Size: dword;
begin
{initialize the computer name size variable}
Size := MAX_COMPUTERNAME_LENGTH+1; {retrieve the computer name}
if GetComputerName(ComputerName, Size) then Edit1.Text := StrPas(Computername)
else Showmessage('Computer Name Not Found');
end;procedure TForm1.Button2Click(Sender: TObject);
var
ComputerName: array[0..MAX_COMPUTERNAME_LENGTH+1] of char; // holds the name
begin
{copy the specified name to the ComputerName buffer}
StrPCopy(ComputerName, Edit1.Text); {set the computer name}
if SetComputerName(ComputerName) then ShowMessage('Computer Name Reset Setting will be used at next startup')
else ShowMessage('Computer Name Not Reset');
end;The Tomes of Delphi 3: Win32 Core API Help File by Larry Diehl