Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.04.29;
Скачать: CL | DM;

Вниз

Функция 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.039 c
15-1175791631
alexsis
2007-04-05 20:47
2007.04.29
Open Office Write!!!


2-1176102734
NewUser2
2007-04-09 11:12
2007.04.29
Как сделать?


15-1175840902
homm
2007-04-06 10:28
2007.04.29
От чего завист скорость ухода системы в сячку?


15-1175594704
Nous Mellon_
2007-04-03 14:05
2007.04.29
Регулярный выражения и php


15-1175503029
X9
2007-04-02 12:37
2007.04.29
Ну наконец-то...