Anda dapat menggunakan function sebagai berikut:

GetComputerName(IpBuffer:Pchar ; Var nSize:Cardinal):LongBool;

dan

GetUserName(IpBuffer:Pchar ; Var nSize:Cardinal):LongBool;

Parameter fungsi tersebut antara lain:
- IpBuffer:PChar, untuk menunjukkan variabel yang akan menerima User Name atau Computer Name.
- nSize:Cardinal, untuk menunjukkan ukuran karakter maksimum dan menyatakan panjang panjang karakter yang diterima oleh IpBuffer.

Kedua fungsi tersebut mempunyai hasil nilai yang bertipe LongBool dimana dapat digunakan untuk variabel dengan 4 bytes (2 words). Tipe ini akan bernilai true jika proses berhasil.

Sekarang penulis akan membuat program yang dapat menampilkan Computer Name dan User Name. Pertama kali penulis menyiapkan TForm dengan 2 TLabel (Label1 dan Label2) dan 1 TButton (Button1).

Contoh program:

//function untuk menampilkan ComputerName
function GetCompN:string;
var
  ComputerName: array[1..20] of Char;
  arrSize: Cardinal;
begin
  arrSize := SizeOf(ComputerName);
  GetComputerName(@ComputerName, arrSize);
  result:=ComputerName;
end;

//function untuk menampilkan UserName
function GetUserN:string;
var
  UserName: array[1..512] of Char;
  arrSize: Cardinal;
begin
  arrSize := SizeOf(UserName);
  GetUserName(@UserName, arrSize);
  result:=UserName;
end;

Dan program untuk menampilkan dengan menggunakan event Button1.Click:

procedure TForm1.Button1Click(Sender: TObject);
begin
  label1.caption :='Computer name : ' + GetCompN ;
  label2.Caption :='User name : ' + GetUserN;
end;

Jika Button1 diklik maka akan muncul tampilan:

Pada program diatas Penulis menggunakan juga function SizeOf() dan tanda @.

- function SizeOf(X): Integer;
Digunakan untuk menghitung jumlah bytes yang akan digunakan untuk menyatakan variable X.

- @X
Digunakan untuk mengubah variable X ke bentuk type pointer variable yang terisi dengan sebuah alamat.

Demikian tulisan mengenai menampilkan computer name dan user name pada komputer Anda. Semoga bermanfaat. Untuk saran dan kritik silakan dikirimkan ke ratih@sony-ak.com. Untuk membaca tulisan menarik lainnya silakan menuju ke www.sony-ak.com.

Silakan download source code lengkap dari project di atas

Terimakasih.

Referensi: www.scalabium.com