Workstation ID

[ChPuK]

банальный вопрос
как узнать имя рабочей станции

[Eugie]

GetComputerNameEx

[ChPuK]

это из какого модуля

[Eugie]

Windows

[ChPuK]

не находит
я сам там смотрел
весь модуль перекопал
перепробовал все типы...

не вышло
а этой функции он даже не находит

у меня 7 дельфи

[ChPuK]

там есть функции GetComputerName GetComputerNameA GetComputerNameW но они все возвращают BOOL
пример можешь дать?

[Eugie]

Да, в 7 ее нет, но там есть GetComputerName. У нее возможности попроще, выдает только NetBIOS имя.

GetComputerNameEx более универсальная. Можно самому ее описать, типа

Код: Выделить всё

  function GetComputerNameEx(
  NameType: Integer,  // name type
  Buffer: PChar,          // name buffer
  var Size: Dword       // size of name buffer
): BOOL external 'kernel32' name GetComputerNameEx;

1-й параметр на самом деле перечисление, хорошо бы и Delphi его объявить так.

[Eugie]

Код: Выделить всё

procedure TForm1.FormCreate(Sender: TObject);
var nbuf: array[0..15] of Char;
    size: Dword;
begin
  size := SizeOf(nbuf);
  GetComputerName(nbuf, size);
  Label1.Caption := String(nbuf);
end;

[ChPuK]

большое спасибо