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 : 31
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


Female
Jumlah posting : 14
Age : 28
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   Today at 11:27 am

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
» CARA MENGGUNAKAN PADDOCK TAPI 1 ORANG................?
» Menggunakan Ms Excel sebagai media menggambar.
» Tutorial Design Menggunakan Photoshop

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