Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: Bilgisayar Adının Bulunması  (Okunma sayısı 1624 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı CMNSOFT

  • Delphi 2 Level 4
  • ****
  • İleti: 82
  • Rep: +2/-2
  • Cinsiyet: Bay
    • http://www.cmnsoft.com
Bilgisayar Adının Bulunması
« : 13 Ekim 2005 14:09:48 »
Kod:  (Unknown Language)
  1. Function GetCompName(): String;
  2. var
  3.   Buffer: Array[0..MAX_COMPUTERNAME_LENGTH+1] of Char;
  4.   Length: Cardinal;
  5.  
  6. Begin
  7.   Length:= MAX_COMPUTERNAME_LENGTH + 1;
  8.   GetComputerName(@Buffer, Length);
  9.   Result:= Buffer;
  10. End;


Kullanım Şekli
Kod:  (Unknown Language)
  1. Procedure TForm1.Button1Click(Sender: TObject);
  2. Begin
  3. ShowMessage(GetCompName);
  4. End;
« Son Düzenleme: 10 Haziran 2009 16:17:01 by Kocaturk »
Kayıtlı
:::::::::::::::::::: www.CMNSOFT.com ::::::::::::::::::::

Çevrimdışı selchuk

  • Delphi 6 Level 3
  • ***
  • İleti: 274
  • Rep: +0/-0
  • Cinsiyet: Bay
    • Arma Ticari Sistem
Ynt: Bilgisayar Adının Bulunması
« Yanıtla #1 : 09 Ocak 2010 00:29:24 »
Kodu kullandım. Teşekkür ederim.
Kayıtlı
Knowledge is power (Bilgi Güçtür)
Sayfa: [1]   Yukarı git
« önceki sonraki »