Re: [delphi-br] Pegar "Grupo de trabalho"
...
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
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 <*> 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
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 <*> 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
[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 <*> 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
