Функция DnsHostnameToComputerName.

[Kolan]

Не работает функция DnsHostnameToComputerName. Дали задание, создать проект на делфи где бы использовалась функция DnsHostnameToComputerName, но данная функция определяется при компиляции как что то не опознаное, в справке про неё тоже ничего нет, вся найдена информация в инете про неё и её использование в С++. Была идея использовать библиотеку Kernel32.dll где она должна по идеи находится, но как данную функцию експортировать и объявить я не знаю.
Всё что у меня получилось от первоначальной идеи.

procedure TForm1.btn1Click(Sender: TObject);
var buffer:array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;
Size: Cardinal; Resultx:string;
begin
   Size:=MAX_COMPUTERNAME_LENGTH+1;
   Windows.DnsHostnameToComputerName(@Resultx,@buffer,Size);
end;

[veniside]

проще вынести их в отдельный юнит:

unit
  myKernel;

interface

uses
  Windows;

function DnsHostnameToComputerNameA(Hostname: PAnsiChar;
 ComputerName: PAnsiChar; var nSize: DWORD): BOOL; stdcall;
function DnsHostnameToComputerNameW(Hostname: PWideChar;
 ComputerName: PWideChar; var nSize: DWORD): BOOL; stdcall;

implementation

function DnsHostnameToComputerNameA; external 'kernel32.dll' name 'DnsHostnameToComputerNameA';
function DnsHostnameToComputerNameW; external 'kernel32.dll' name 'DnsHostnameToComputerNameW';

end.

и юзать понемногу:

{$APPTYPE CONSOLE}

program
  Project1;

uses
  Windows, myKernel;

var
  bufA: array[byte] of AnsiChar;
  bufW: array[byte] of WideChar;
  sz: DWORD;
begin
  sz := sizeof(bufA);
  DnsHostnameToComputerNameA('hostname', bufA, sz);
  //
  sz := sizeof(bufW) shr 1;
  DnsHostnameToComputerNameW(PWideChar(WideString('hostname')), bufW, sz);
end.

[mss]

> в справке про неё тоже ничего нет

Откуда ж ей там взяться, если справка писалась еще во времена жития маздайной линейки (95/98/Me) ?)