bilgisayarın adını döndürme
Kod: Kodu kopyalamak için üzerine çift tıklayın! 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;
__________________ SusKun ve Sessiz Mürekkep... Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
|