![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Кол-во компов в сети
Cosmic © (2003-01-27 10:17:00)Как узнать количество компов в сети, состоящей из нескольких доменов и/или рабочих групп?
Cosmic (2003-01-27 19:15:00) [1]Что такое PItemIDList?
Donatas (2003-01-27 18:34:00) [2]procedure TForm1.Button1Click(Sender: TObject);
var
pidl:PItemIDList;
shei:TShellExecuteInfo;
begin
SHGetSpecialFolderLocation(handle,CSIDL_NETWORK,pidl);
shei.cbSize:=sizeof(shei);
shei.fMask:=SEE_MASK_IDLIST;
shei.Wnd:=handle;
shei.lpVerb:=nil;
shei.lpFile:=nil;
shei.lpParameters:=nil;
shei.lpDirectory:=nil;
shei.nShow:=SW_SHOW;
shei.lpIDList:=pidl;
ShellExecuteEx(@shei);
end;