用GetComputerNameprocedure TForm1.Button1Click(Sender: Tobject); var ComputerName: array[0..MAX_COMPUTERNAME_LENGTH+1] of char; Size: Integer; begin Size := MAX_COMPUTERNAME_LENGTH+1; if GetComputerName(ComputerName, Size) then Edit1.Text := StrPas(Computername) else Showmessage('Computer Name Not Found'); end;
getcomputername获取计算机名 setcomputername修改计算机名
if GetComputerName(ComputerName,Size) then 这里有错误呀 [Error] Unit1.pas(33): Types of actual and formal var parameters must be identical [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
修正: var ... Size: Dword; ........
procedure TForm1.Button1Click(Sender:TObject); var cNameBuff:PChar; fLoaded:Boolean; cLen:^DWord; begin GetMem(cNameBuff,255); New(cLen); cLen^:=255; fLoaded:=GetComputerName(cNameBuff,cLen^); if fLoaded then ShowMessage(StrPas(cNameBuff)) else ShowMessage('不能识别计算机名!'); FreeMem(cNameBuff,255); Dispose(cLen); end;
function Localhomename : string; var PCName : array [0..1000] of char; Size: DWord; servername : string; begin Size := sizeof(PCName); GetComputerName(PCName,Size); ServerName := PCName; result := serverName; end;
var szComputerName:array [0..255] of char; nSize:DWORD; --------- nSzie:=255; fillchar(szComputerName,sizeof(szComputerName),0); if windows.GetComputerName(szComputerNme,nSize) then begin if strpas(szCompputerName)='' then showmessage('出错') else showmessage(strpas(szComputername)); end else showmessae('出错'); end;
var computername: pansichar; size: cardinal; b:boolean; begin size := 255; b := Getcomputername(computername,size); showmessage('1'); if b then edit2.Text := strpas(computername);
var computername: pansichar; size: cardinal; b:boolean; begin size := 255; b := Getcomputername(computername,size); showmessage('1'); if b then edit2.Text := strpas(computername);
var name:pchar;len:dword; begin len:=30; getmem(name,30); getcomputername(name,len); showmessage(name);
var
ComputerName: array[0..MAX_COMPUTERNAME_LENGTH+1] of char;
Size: Integer;
begin
Size := MAX_COMPUTERNAME_LENGTH+1; if GetComputerName(ComputerName, Size) then
Edit1.Text := StrPas(Computername)
else
Showmessage('Computer Name Not Found');
end;
setcomputername修改计算机名
[Error] Unit1.pas(33): Types of actual and formal var parameters must be identical
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
var
...
Size: Dword;
........
var
cNameBuff:PChar;
fLoaded:Boolean;
cLen:^DWord;
begin
GetMem(cNameBuff,255);
New(cLen);
cLen^:=255;
fLoaded:=GetComputerName(cNameBuff,cLen^);
if fLoaded then
ShowMessage(StrPas(cNameBuff))
else
ShowMessage('不能识别计算机名!');
FreeMem(cNameBuff,255);
Dispose(cLen);
end;
var
PCName : array [0..1000] of char;
Size: DWord;
servername : string;
begin
Size := sizeof(PCName);
GetComputerName(PCName,Size);
ServerName := PCName;
result := serverName;
end;
szComputerName:array [0..255] of char;
nSize:DWORD;
---------
nSzie:=255;
fillchar(szComputerName,sizeof(szComputerName),0);
if windows.GetComputerName(szComputerNme,nSize) then
begin
if strpas(szCompputerName)='' then showmessage('出错')
else showmessage(strpas(szComputername));
end
else
showmessae('出错');
end;
computername: pansichar;
size: cardinal;
b:boolean;
begin
size := 255;
b := Getcomputername(computername,size);
showmessage('1');
if b then
edit2.Text := strpas(computername);
computername: pansichar;
size: cardinal;
b:boolean;
begin
size := 255;
b := Getcomputername(computername,size);
showmessage('1');
if b then
edit2.Text := strpas(computername);
begin
len:=30;
getmem(name,30);
getcomputername(name,len);
showmessage(name);