Workstation ID
Добавлено: 06 июн 2005, 14:50
банальный вопрос
как узнать имя рабочей станции
как узнать имя рабочей станции
Страница 1 из 1
Добавлено: 06 июн 2005, 16:28
GetComputerNameEx
Добавлено: 06 июн 2005, 16:30
это из какого модуля
Добавлено: 06 июн 2005, 16:38
Windows
Добавлено: 06 июн 2005, 16:40
не находит
я сам там смотрел
весь модуль перекопал
перепробовал все типы...
не вышло
а этой функции он даже не находит
у меня 7 дельфи
я сам там смотрел
весь модуль перекопал
перепробовал все типы...
не вышло
а этой функции он даже не находит
у меня 7 дельфи
Добавлено: 06 июн 2005, 16:54
там есть функции GetComputerName GetComputerNameA GetComputerNameW но они все возвращают BOOL
пример можешь дать?
пример можешь дать?
Добавлено: 06 июн 2005, 16:55
Да, в 7 ее нет, но там есть GetComputerName. У нее возможности попроще, выдает только NetBIOS имя.
GetComputerNameEx более универсальная. Можно самому ее описать, типа
1-й параметр на самом деле перечисление, хорошо бы и Delphi его объявить так.
GetComputerNameEx более универсальная. Можно самому ее описать, типа
Код: Выделить всё
function GetComputerNameEx(
NameType: Integer, // name type
Buffer: PChar, // name buffer
var Size: Dword // size of name buffer
): BOOL external 'kernel32' name GetComputerNameEx;
Добавлено: 06 июн 2005, 17:00
Код: Выделить всё
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;
Добавлено: 06 июн 2005, 17:01
большое спасибо 