Решил выложить, готовая функция)
для delphi
берет путь из реестра (MUICache), без использования TRegistry

function GetQIPPath:string;
var
  key:HKEY;
  len,tmplen,count,i:DWORD;
  s:PChar;
const
  where:string='Software\Microsoft\Windows\ShellNoRoam\MUICache';
begin
  Result:='';
  if RegCreateKey(HKEY_CURRENT_USER,PChar(where),key)<>0 then Exit;
  GetMem(s,255);
  try
    RegQueryInfoKey(key,nil,nil,nil,nil,nil,nil,@count,@len,nil,nil,nil);
    for i:=0 to Count-1 do begin
      tmplen:=len+1;
      RegEnumValue(key,i,s,tmplen,nil,nil,nil,nil);
      if pos('\qip.exe',s)<>0 then begin
        Result:=s;
        Exit;
      end; // if
      FillChar(s^, 255, 0);
    end; // for
  finally
    RegCloseKey(key);
    FreeMem(s);
  end; // try
end;

Касательно qip, советую ещё посмотреть программу для определения ip собеседника. А для определения своего ip можно использовать сайт http://mainspy.ru

Похожие записи