Bilgisayar ismi ve Kullanici Adının Alınması

[Logic]

(* __ Formunuza 2 adet Label Nesnesi ekleyin __*)

procedure TForm1.Button1Click(Sender: TObject);
var
u: array[0..127] of Char;
c: array[0..127] of Char;
KullaniciAdi: string;
BilgisayarAdi: string;
s: dword;
begin
s := SizeOf(u);
GetUserName(u, s);

s := SizeOf(c);
GetComputerName(c, s);

KullaniciAdi := u;
BilgisayarAdi := c;

Label1.Caption := u;
Label2.Caption := c;
end;

 

[gogo]

türk coder numaralarının devamını bekliyoruz...saol...