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
QUOTE
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[i] ,false) then
begin
if reginfo.ValueExists('MessageLogPath') then
Result.Add(RegInfo.ReadString('MessageLogPath'))
end;
end;
end;
end;
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[i] ,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+
