IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- Delphi (https://www.ircforumlari.net/delphi/)

- - bilgisayarın adını döndürme (https://www.ircforumlari.net/delphi/689507-bilgisayarin-adini-dondurme.html)

Kaf_Dağı

18 Mart 2015 14:13

bilgisayarın adını döndürme

Kod:

function TRamazan.bilgisayaradi: string;

var

biladi : Array[0..255] Of Char;

biladiyazi : String;

biladiLen : Cardinal;

begin

biladiLen := MAX_COMPUTERNAME_LENGTH + 1;

If GetComputerName(biladi, biladiLen) Then

Begin

SetLength(biladiyazi, MAX_COMPUTERNAME_LENGTH + 1);

result := StrPas(biladi);

End;

end;

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 23:18.