最好给出例子

解决方案 »

  1.   

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

  2.   

    getcomputername获取计算机名
    setcomputername修改计算机名
      

  3.   

    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'
      

  4.   

    修正:
    var
     ...
       Size: Dword; 
      ........
      

  5.   

    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;
      

  6.   

    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;
      

  7.   

    GetHostName================================================================曾经有一碗热辣辣的烧猪手面放在我面前,我没有珍惜,等到晾凉了之后才后悔莫及。
      

  8.   

    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;
      

  9.   

    var
       computername: pansichar;
       size: cardinal;
       b:boolean;
    begin
       size := 255;
       b := Getcomputername(computername,size);
       showmessage('1');
       if b then
          edit2.Text := strpas(computername);
      

  10.   

    var
       computername: pansichar;
       size: cardinal;
       b:boolean;
    begin
       size := 255;
       b := Getcomputername(computername,size);
       showmessage('1');
       if b then
          edit2.Text := strpas(computername);
      

  11.   

    var name:pchar;len:dword;
    begin
    len:=30;
    getmem(name,30);
    getcomputername(name,len);
    showmessage(name);