Komunitas Informatika Aneuk Nanggröe

Dengan Agama hidup menjadi terarah, dengan Ilmu hidup menjadi mudah dan dengan seni hidup menjadi indah..!!
 
IndeksPortalFAQPencarianPendaftaranLogin

Share | 
 

 Menampilkan Computer Name dan User Name dengan Menggunakan Delphi

Go down 
PengirimMessage
sulistiyo
Play Group


Female
Jumlah posting : 5
Age : 33
Lokasi : Semarang
Registration date : 16.06.08

PostSubyek: Menampilkan Computer Name dan User Name dengan Menggunakan Delphi   Wed Jun 25, 2008 3:51 pm

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... thumbs up
Kembali Ke Atas Go down
Lihat profil user
shely07
TK
avatar

Female
Jumlah posting : 14
Age : 30
Lokasi : Lampineung
Registration date : 16.06.08

PostSubyek: Re: Menampilkan Computer Name dan User Name dengan Menggunakan Delphi   Thu Jun 26, 2008 5:36 pm

Waduh delphi, kurang ngerti.. tapi thanks ya...
oya kalu pake vfp tau ga gimana codingnya??
Kembali Ke Atas Go down
Lihat profil user
ijal
Play Group


Male
Jumlah posting : 7
Lokasi : sumatera
Registration date : 01.05.10

PostSubyek: re   Mon May 17, 2010 12:12 pm

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
Kembali Ke Atas Go down
Lihat profil user http://fariztechno.blogspot.com
Sponsored content




PostSubyek: Re: Menampilkan Computer Name dan User Name dengan Menggunakan Delphi   

Kembali Ke Atas Go down
 
Menampilkan Computer Name dan User Name dengan Menggunakan Delphi
Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» [Blender] How to Cellshading
» Ramalan Dunia Dari Tahun 2010 Sampai 5079
» (ask)helm terjangkau
» (ASK) Bensin buat si ninin
» Jumlah busi yang dipake sama ninja 250

Permissions in this forum:Anda tidak dapat menjawab topik
Komunitas Informatika Aneuk Nanggröe :: General Category :: Pemrograman :: Delphi-
Navigasi: