Имя компьютера

← →
Delphi basic © (2006-06-22 16:10) [0]

Как можно узнать сетевое имя компьютера?

← →
Dmitrij_K (2006-06-22 16:25) [1]

GetComputerName()

← →
Delphi basic © (2006-06-22 16:43) [2]

function GetComputerName(lpBuffer: PChar; var nSize: DWORD): BOOL
Ничего не возвращает :(
Чего второй параметр означает?

← →
Плохиш © (2006-06-22 16:45) [3]

из IdGlobals.pas
function IndyGetHostName: string; var i: LongWord; begin SetLength(Result, MAX_COMPUTERNAME_LENGTH + 1); i := Length(Result); if GetComputerName(@Result[1], i) then begin SetLength(Result, i); end; end;

← →
Delphi basic © (2006-06-22 16:51) [4]

> function GetComputerName(lpBuffer: PChar; var nSize: DWORD):
> BOOL
> Ничего не возвращает :(
> Чего второй параметр означает?

Сорри, она возвращает но, похоже, в Юникоде. Как переконвертить в ANSI?

← →
Dmitrij_K (2006-06-22 16:55) [5]

Возвращает она True или False
См [3]

> Возвращает она True или False
> См [3]
> <Цитата>

В lpBuffer возвращается строка, только кодировка странная.
Например, для компьютера с сетевым именем "Alex" возвращает ""S‹Ø‹ÃèÖÎ""

function GetCompName: string; var Name: array[0..79] of char; Len: DWORD; begin Len := 80; if GetComputerName(@Name, Len) then Result := Name else Result := ""; end;

В тему:

http://www.delphimaster.ru/cgi-bin/nuts.pl?showpage=2

См. "Имя компьютера". :)))

Имя компьютера Найти похожие ветки