Delphi ile Bilgisayar Adını Almak

 Bu yazımızda Bilgisayar adına nasıl erişiriz.Onun örneğini yapacağız.

GetComputerName fonksiyonunu kullanacağız.

 Formumuza bir Label ,bir button ekleyelim ve eventına aşağıdaki kodu yazalım.Programı derlediğinizde Buttona tıkladığınızda Label1 içine bilgisayarın adı yazacaktır.Belki bu özelliği programınızı şifrelemek
isteği için kullanabilirsiniz.

procedure TForm1.Button1Click(Sender: TObject);
var
  Bilgisayaradi: array[0..256] of Char;
  i: DWord;
begin
  i:=256;
  GetComputerName(Bilgisayaradi, i);
  Label1.Caption:=StrPas(Bilgisayaradi);
end;

Bir sonraki yazımızda görüşmek üzere.