Função

[Eder]

Pessoal

como uso esta função abaixo??? ou melhor como montar este aplicativo para fazer o que a funçaõ pede??

MSN e Delphi - Pegando todos os logs de conversas dos usuários da empresa

Fonte: ramos da informatica

Uses Registry;

function GetMSNLogPaths: TStrings;

var

RegInfo: TRegistry;

ts: Tstrings;

i: Integer;

begin

Result := TStringList.Create;

ts := TStringList.Create;

RegInfo := TRegistry.Create;

RegInfo.RootKey := HKEY_CURRENT_USER;

if RegInfo.OpenKey('\Software\Microsoft\MSNMessenger\PerPassportSettings',false) then

begin

reginfo.GetKeyNames(ts);

for i := 0 to ts.Count -1 do

begin

if RegInfo.OpenKey('\Software\Microsoft\MSNMessenger\PerPassportSettings\'+ ts ,false) then

begin

if reginfo.ValueExists('MessageLogPath') then

Result.Add(RegInfo.ReadString('MessageLogPath'))

end;

end;

end;

end;

//Esta função retorna os caminhos dos logs, linha por linha de todos usuários do MSN

//Testando no Windows Live Messenger 8.0.0787.00

muito Grato..t+ :D

[Churc]

pra adicionar em um memo por exemplo você faz

memo1.lines.addstrings(GetMSNLogPaths);

ahh só que pra interpretar os logs não vai ser tão fácil, eles vem em XML

você teria que pegar alguma função que interpretasse XML ou fazer sua própria função

para poder mostrar corretamente em por exemplo um richedit...

abraços

[Eder]

beleza Churc................muito grato...t+ :D