| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Функция DnsHostNameToComputerName [D7, WinXP]
brothers © (2007-04-10 09:34:00)Необходим пример использования функции DnsHostNameToComputerName.
SergGG (2007-04-10 15:24:00) [1]В 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;
KSergey (2007-04-10 10:46:00) [2]А 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);
Прмерно так, дельфи под рукой нет, могу приврать в именах ф-ций.
| |
