Teamviewer API

[noisy_master]

Moin zusammen!

die Client ID ist nicht das Problem: Die steht in der Registry...... hier der Code für TV 9 und 10... kann sein, dass sich bei den neueren Versionen mal wieder der Zweig geändert hat.
Aber das herauszufinden sollte ein leichtes sein, wenn man zumindest ungefähr weiss, wo man nachschauen kann.

Delphi-Quellcode:

function Form1.GetTeamViewerID : integer;
var
  Reg: TRegistry;
  tmp : string;
begin
  Reg := TRegistry.Create(KEY_READ);
  try
    if IsWow64 then
      tmp := '\wow6432node';
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if (Reg.OpenKey('\Software'+tmp+'\Teamviewer\Version9', false)) then
    begin
      result := Reg.ReadInteger('ClientID');
    end
    else
      if (Reg.OpenKey('\Software'+tmp+'\Teamviewer', false)) then
      begin
        result := Reg.ReadInteger('ClientID');
      end
      else
        result := -1;
finally
    Reg.Free;
  end;
end;