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

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
sulistiyo
Play Group


Female
Jumlah posting : 5
Age : 32
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 : 29
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
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» nihon-go (katakana & hiragana)
» Tilang KNALPOT
» Menggunakan Ms Excel sebagai media menggambar.
» Tutorial Design Menggunakan Photoshop
» [ASK] Ada Yang Tau Cara Edit Gear Menggunakan GIMP ?

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