...
private
{ Private declarations }
plataforma : string;
procedure ListaAmbienteRede;
...
Verifique e adapte para as suas necessidades.
procedure tform1.ListaAmbienteRede;
procedure Enumera(Res: PnetResource);
var
Hnd: THandle;
NumeroEntradas: DWord;
Buffer: array[1..255] of TNetResource;
LongBuffer: DWord;
n: Integer;
S: String;
begin
LongBuffer := SizeOf(Buffer);
// if WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, Res, Hnd) <>
No_ERROR then
// raise Exception.Create('Error in network browsing')
if WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, Res, Hnd) =
No_ERROR then
begin
NumeroEntradas := 255;
WNetEnumResource(Hnd, NumeroEntradas, @Buffer[1], LongBuffer);
for n := 1 to NumeroEntradas do
begin
S := string(Buffer[n].lpRemoteName);
if plataforma = 'xp' then
if (Buffer[1].dwType = 0) and (Copy(S, 1, 2) <> '\\') then
Listbox1.items.Add(Copy(S, 1, 20));
if plataforma = '9x' then
if (Buffer[1].dwType = 3) and (Copy(S, 1, 2) = '\\') then
Listbox1.items.Add(Copy(S, 1, 20));
if (Buffer[n].dwUsage and RESOURCEUSAGE_CONTAINER) =
RESOURCEUSAGE_CONTAINER then
Enumera(@Buffer[n]);
end;
end;
end;
begin
Enumera(nil);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
plataforma := 'xp'; // serve para 2000, NT
// plataforma := '9x'; // serve para 95, 98, ME
listaambienterede;
end;
Espero ter ajudado
----- Original Message -----
From: "Alexandre Brasil" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, December 03, 2004 4:00 PM
Subject: Re: [delphi-br] Pegar "Grupo de trabalho"
>
> Se possível, que fosse nas 3...
> mas se vc souber como se faz em 1 delas já serve.
>
> []'s Alexandre
>
>
> ----- Original Message -----
> From: "Fabio Giro" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Friday, December 03, 2004 10:00 AM
> Subject: Re: [delphi-br] Pegar "Grupo de trabalho"
>
>
> >
> >
> > Qual a plataforma? (windows98, ME, XP)
> >
> > ----- Original Message -----
> > From: "Alexandre Brasil" <[EMAIL PROTECTED]>
> > To: <[EMAIL PROTECTED]>
> > Sent: Friday, December 03, 2004 8:55 AM
> > Subject: [delphi-br] Pegar "Grupo de trabalho"
> >
> >
> >>
> >> Bom dia!
> >>
> >> Pessoal... estou desenvolvendo um sisteminha que pega várias
informações
> > do
> >> sistema. Para isso, algumas informações estou buscando via WMI,
enquanto
> >> outras no registro mesmo.
> >>
> >> Agora vai o que eu não estou achando. Onde, ou como eu faço para achar
o
> >> "Grupo de trabalho" que o Windows esta usando?? Aquele que se define
nas
> >> propriedades do ambiente de rede!
> >>
> >>
> >> Muito obrigado pela ajuda!
> >> []'s Alexandre
> >>
> >>
> >>
> >> --
> >> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> >>
> >> Para ver as mensagens antigas, acesse:
> >> http://br.groups.yahoo.com/group/delphi-br/messages
> >>
> >> Para falar com o moderador, envie um e-mail para:
> >> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
> >>
> >> Links do Yahoo! Grupos
> >>
> >>
> >>
> >>
> >>
> >>
> >>
> >>
> >>
> >
> >
> >
> >
> >
> >
> > --
> > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> >
> > Para ver as mensagens antigas, acesse:
> > http://br.groups.yahoo.com/group/delphi-br/messages
> >
> > Para falar com o moderador, envie um e-mail para:
> > [EMAIL PROTECTED] ou [EMAIL PROTECTED]
> >
> > Links do Yahoo! Grupos
> >
> >
> >
> >
> >
> >
> >
> >
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
