unit1.pas

Computer name and the name of the determination of computer network application.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    lblGetComputerNetName: TLabel;
    lblGetUserFromWindows: TLabel;
    edtGetComputerNetName: TEdit;
    edtGetUserFromWindows: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function GetComputerNetName: string;
var
  buffer: array[0..255] of char;
  size: dword;
begin
  size := 256;
  if GetComputerName(buffer, size) then
    Result := buffer
  else
    Result := ''
end;

Function GetUserFromWindows: string;
Var
   UserName : string;
   UserNameLen : Dword;
Begin
   UserNameLen := 255;
   SetLength(userName, UserNameLen) ;
   If GetUserName(PChar(UserName), UserNameLen) Then
     Result := Copy(UserName,1,UserNameLen - 1)
   Else
     Result := 'Unknown';
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
  lblGetComputerNetName.Caption:='ComputerNetName: '+GetComputerNetName;
  lblGetUserFromWindows.Caption:='UserFromWindows: '+GetUserFromWindows;
end;

procedure TForm1.FormCreate(Sender: TObject);
var f:textfile;
begin
  edtGetComputerNetName.text:=GetComputerNetName;
  edtGetUserFromWindows.text:=GetUserFromWindows;
  try
    assignfile(f,'name.txt');
    rewrite(f);
    writeln(f,'Computer Net Name: ',GetComputerNetName);
    writeln(f,'User From Windows: ',GetUserFromWindows);
    closefile(f);
  except
    beep;
  end;
end;

end.