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);
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);