Valeu pessoal! Era justamente o que estava precisando.
Obrigado!!! Atenciosamente, Vinicius S. L. Ribeiro [EMAIL PROTECTED] GNU/Linux User #293209. Get counted: http://counter.li.org/ Angélica Viana Pereira escreveu: > function fncGetDomainName : string; > var > hToken : THandle; > sida : PSIDAndAttributes; > sidlen, unLen, dnLen : DWORD; > userName, domainName : string; > use : SID_NAME_USE; > begin > sida := Nil; > if OpenProcessToken (GetCurrentProcess, TOKEN_QUERY, hToken) then > try > sidLen := 65536; > repeat > ReallocMem (sida, sidLen); > > if GetTokenInformation > (hToken, TokenUser, sida, sidLen, sidLen) then > begin > break; > end; > > > if GetLastError <> ERROR_INSUFFICIENT_BUFFER then > begin > RaiseLastWin32Error > end; > > until False; > > unLen := 0; > dnLen := 256; > > repeat > SetLength (userName, unLen); > SetLength (domainName, dnLen); > if LookupAccountSid ('', sida^.Sid, PChar (userName), unLen, > PChar (domainName), dnLen, use) then > begin > break; > end; > > > if GetLastError <> ERROR_INSUFFICIENT_BUFFER then > begin > RaiseLastWin32Error; > end; > > until False; > > > Result := PChar (domainName) > > > finally > CloseHandle (hToken); > FreeMem (sida); > end > end; > > function fncRetornaMaquina : String; > var > i : Integer; > lpBuffer : PChar; > nSize : Cardinal; > strAux : String; > begin > //Retorna o Nome da Máquina > nSize:= MAX_COMPUTERNAME_LENGTH + 1; > lpBuffer := StrAlloc(nSize); > GetComputerName(lpBuffer, nSize); > > Result := String(lpBuffer); > > StrDispose(lpBuffer); > end; > > > []s Angélica > ----- Original Message ----- > From: "Desenvolvimento (Anderson)" <[EMAIL PROTECTED]> > To: <delphi-br@yahoogrupos.com.br> > Sent: Friday, July 14, 2006 10:22 AM > Subject: Re: [delphi-br] Pegar Dominio/Grupo de trabalho > > > na paleta de componentes JEDI (jvSystem) tem um componente chamado > JvComputarInfoEx. > Nele, tem uma propriedade chamada IDENTIFICATION. > Tem tudo. > se não quiser instalar a paleta jedi, me fala q passo o codigo... > mas eu acho mais facil instalar a JEDI... > ----- Original Message ----- > From: Moked - Tamara (Brazil) > To: delphi-br@yahoogrupos.com.br > Sent: Friday, July 14, 2006 8:58 AM > Subject: RES: [delphi-br] Pegar Dominio/Grupo de trabalho > > > Vinicius, > > Desculpe a minha ignorância, mas o q seria o grupo de trabalho? > > Obrigada, > > Tamara Clemente - Suporte Técnico > Moked do Brasil - Consultoria de Segurança Empresarial > Divisão MokInf de Informática > PABX: (55-11) 5071-2748 > [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> > www.moked.com.br <http://www.moked.com.br/> > > > ________________________________ > > De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em > nome de Vinicius S. L. Ribeiro > Enviada em: quinta-feira, 13 de julho de 2006 21:01 > Para: delphi-br@yahoogrupos.com.br > Assunto: [delphi-br] Pegar Dominio/Grupo de trabalho > > > E ae pessoal, blz ? > > Alguem sabe como faco pra pegar o Dominio ou Grupo de Trabalho que o > computador faz parte atraves do Delphi ? > > Valeu! > > -- > > Atenciosamente, > > > Vinicius S. L. Ribeiro > [EMAIL PROTECTED] > > GNU/Linux User #293209. > Get counted: http://counter.li.org/ > > > > > > > _______________________________________________________ > Você quer respostas para suas perguntas? Ou você sabe muito e quer > compartilhar seu conhecimento? Experimente o Yahoo! Respostas ! > http://br.answers.yahoo.com/ > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > __________ Informação do NOD32 IMON 1.1660 (20060714) __________ > > Esta mensagem foi verificada pelo NOD32 sistema antivírus > http://www.eset.com.br > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > _______________________________________________________ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ -- <<<<< 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] 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