Форум: "Начинающим";
Текущий архив: 2007.04.29;
Скачать: [xml.tar.bz2];

Вниз

Функция DnsHostNameToComputerName   Найти похожие ветки 

← →
brothers   (2007-04-10 09:34) [0]

Необходим пример использования функции DnsHostNameToComputerName.

---

← →
KSergey ©   (2007-04-10 10:46) [1]

А google не помогает??

Судя по тут
http://msdn2.microsoft.com/en-us/library/ms724244.aspx
примерно так:

var
 ComputerName: String;
 Hostname: String;
 DWORD: nSize;
begin
 ...
 nSize = 100;
 Setlen(Hostname, nSize);
 DnsHostnameToComputerName(PChar(Hostname), PChar(ComputerName), @nSize);

Прмерно так, дельфи под рукой нет, могу приврать в именах ф-ций.

---

← →
SergGG ©   (2007-04-10 15:24) [2]

В Kernel32.dll имя функции имеет вид:
DnsHostnameToComputerNameA
и
DnsHostnameToComputerNameW
А воспользоваться можете так:

 {$EXTERNALSYM DnsHostnameToComputerNameA}
 function DnsHostnameToComputerNameA(Hostname:LPCTSTR; ComputerName:LPTSTR; nSize:LPDWORD):Bool;Stdcall;
 function DnsHostnameToComputerNameA;external kernel32 name "DnsHostnameToComputerNameA";
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Hostname: String;
ComputerName: array[0..MAX_COMPUTERNAME_LENGTH]of Char;
nSize:DWORD ;
begin
 nSize := MAX_COMPUTERNAME_LENGTH;
 Hostname:="DnsName";
 if  DnsHostnameToComputerNameA(PChar(Hostname), ComputerName, @nSize) then
   ShowMessage(ComputerName)else
   ShowMessage(SysErrorMessage(GetLastError));
end;



---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.04.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.047 c