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;