Menampilkan Computer Name dan User Name dengan Menggunakan Delphi

Bagaimanakah mengetahui informasi tentang Computer Name dan User Name pada komputer Anda dengan menggunakan Delphi? Anda dapat menggunakan fungsi-fungsi yang telah disediakan.

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.

Semoga bermanfaat...

Waduh delphi, kurang ngerti.. tapi thanks ya...
oya kalu pake vfp tau ga gimana codingnya??

oke mantap sekaili isi nya bos cuman saya masi bingung uga ni langkah langkah apa sih yang harus kita lakukan sebelum mengetik bisa ga kaisih tau langkah-langkah pembuatannya secara detil oke terimakasih