| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Рабочие группы [D5, D6, D7, Win95/98, WinME, NT4, Win2k, WinXP]

Melcor ©   (2003-11-14 02:27:00) 

Народ!!
Как узнать название раб. группы в win98-200-XP ???

Помоги плз. .... срочно нада!!!

Заранее благоадрен...

---

Vorobyev Sergey   (2003-11-17 09:41:00) [1]

> Как узнать название раб. группы в win98-200-XP ???

Своего или удаленного компьютера?

---

Melcor   (2003-11-17 08:46:00) [2]

Спасиба!!!! Есть ли еще варианты ? (под 9х проверить нет возможности :) )

---

Almax   (2003-11-17 04:34:00) [3]

Лови код. В 2000 и XP точно работает!!! :)))
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

function NetWkstaGetInfo(servername: PWChar;
level: DWORD;
bufptr: PBYTE): DWORD; stdcall;
external "netapi32.dll";

type WKSTA_INFO_100=record
wki100_platform_id: DWORD;
wki100_computername: PWChar;
wki100_langroup: PWChar;
wki100_ver_major: DWORD;
wki100_ver_minor: DWORD;
end;
PWKSTA_INFO_100=^WKSTA_INFO_100;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
bufptr: PWKSTA_INFO_100;
begin
NetWkstaGetInfo(nil,100,@bufptr);
ShowMessage(bufptr.wki100_langroup);
end;

end.

---

Наверх