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;