- ja dann doch null

----------------------------------------------

NEU!----tobit clip inc. --- nur [INIT] [INIT] #define __ASK_UNINST_PAGE__ TRUE Version = 2.05.00 ; Script Version ProgShowName = ClipInc. ProgShortName = ClipInc. ProgramGroup = Tobit Software\%P UninstallShowName = Tobit Uninstall HeadLine = Uninstall FromYear = 2003 Uninstall = TRUE UninstIcon = 0 ;Languages = ger [Deutsch] DefaultLanguage = ger ResPath = TobitCltPath = ServerApp = FALSE #ServerApplication(0); ;; ---------------------------------------------------------------------------- #RegQueryValue ("HKEY_CURRENT_USER", "Software\Tobit\Tobit ClipInc\Client", "RootDirectory", "RootDirectory"); #RegQueryValue ("HKEY_CURRENT_USER", "Software\Tobit\Tobit ClipInc\Client\Setup", "Language", "CurrentLanguage"); #RegQueryValue ("HKEY_CURRENT_USER", "Software\Tobit\Tobit ClipInc\Client\Setup", "ProgramGroup", "ProgGroup"); #RegQueryValue ("HKEY_LOCAL_MACHINE", "Software\Tobit\David", "RootDirectory", "DavidRoot"); #RegQueryValue ("HKEY_CURRENT_USER", "Software\Tobit\Tobit InfoCenter\Settings", "ProgramDirectory", "TICDir"); #ifdef RootDirectory TargetDir = %(RootDirectory)\ #undef RootDirectory #else #Exit #endif #ifdef CurrentLanguage Languages = %(CurrentLanguage) DefaultLanguage = %(CurrentLanguage) #Undef CurrentLanguage #endif #ifdef ProgGroup ProgramGroup = "%(ProgGroup)" #undef ProgGroup #endif #RegQueryValue ( "HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion", "ProgramFilesDir", "ProgramFilesDir" ); ;; ============================================================================ [PRESTART] #StrReplace( "%(TargetDir)", "\Player", "", "ClipIncRoot" ); #CheckForFiles("%(ClipIncRoot)\AutoGrab", "*.mp3"); #if #Result #if #MessageBox( "##[ASK_DEL_AUTOGRAB_%l]", "%P%E", "MB_ICONQUESTION|MB_YESNO", "IDYES" ) #define DEL_AUTOGRAB #endif #else #define DEL_AUTOGRAB #endif #undef ClipIncRoot ;; ============================================================================ [COPY] #SetDlgCheckBmpState1 = 1 #SetDlgCheckBmpState1 = 2 #SetDlgCheckBmpState2 = 1 #Sleep = 2000 #SetDlgCheckBmpState2 = 2 #SetDlgCheckBmpState3 = 1 #Sleep = 2000 #RootDel %(TargetDir) #StrReplace( "%(TargetDir)", "\Player", "", "ClipIncRoot" ); #ifdef ClipIncRoot #ifdef DEL_AUTOGRAB #RootDel "%(ClipIncRoot)\AutoGrab" #endif #EmptyDel "%(ClipIncRoot)" #endif #EmptyDel "%(ProgramFilesDir)\Tobit ClipInc" #rootdir= #destpath=%(windir)\ #if ( !defined( DavidRoot ) && !defined( TICDir ) ) ;#del tobitclt.dll #SharedFileRemove( "%(windir)\TOBITCLT.DLL", 4 ); #endif #rootdir= #destpath=%(WinSysDir)\ #SetDlgCheckBmpState3 = 2 #SetDlgCheckBmpState4 = 1 #Sleep = 1000 #rootdir= #destpath= #RootDel %g\%G #Sleep=1000 #EmptyDel "%g\Tobit" #EmptyDel "%g\Tobit Software" #SetDlgCheckBmpState4 = 2 #SetDlgCheckBmpState5 = 1 #Sleep = 1000 #GetProgGroupPath ( "DesktopDir", "DESKTOPDIR" ); #ifdef DesktopDir #ShortCutDel ( "%(DesktopDir)", "Tobit ClipInc.." ); #ShortCutDel ( "%(DesktopDir)", "ClipInc. Reloaded." ); #ShortCutDel ( "%(DesktopDir)", "ClipInc.." ); #undef DesktopDir #endif #GetProgGroupPath ( "AppData", "APPDATA" ); #ifdef AppData #ShortCutDel ( "%(AppData)\Microsoft\Internet Explorer\Quick Launch", "Tobit ClipInc.." ); #ShortCutDel ( "%(AppData)\Microsoft\Internet Explorer\Quick Launch", "ClipInc. Reloaded." ); #ShortCutDel ( "%(AppData)\Microsoft\Internet Explorer\Quick Launch", "ClipInc.." ); #undef AppData #endif #SetDlgCheckBmpState5 = 2 #SetDlgCheckBmpState6 = 1 #Sleep = 1000 #RegDeleteKey ("HKEY_CURRENT_USER", "Software\Tobit", "Tobit ClipInc"); #RegDeleteKey ("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Uninstall", "Tobit ClipInc Client"); #GetDOSPath ( "%(winsysdir)\Tobit ClipInc.scr", "ScrShortFN", 0 ); #RegQueryValue ( "HKEY_CURRENT_USER", "Control Panel\Desktop", "SCRNSAVE.EXE", "InstalledScrFN" ); #ifdef InstalledScrFN #if stricmp( "%(ScrShortFN)", "%(InstalledScrFN)" ) #SCREENSAVER( "%(ScrShortFN)", 1 ); #rootdir= #destpath=%(winsysdir)\ #del "Tobit ClipInc.scr" #RegDeleteKey ("HKEY_CURRENT_USER", "Software\Tobit\Tobit ClipInc", "Screen Saver Settings"); #endif #endif #rootdir= #destpath=%(windir)\ #del CICUnins.exe #SetDlgCheckBmpState6 = 2 #Sleep = 2000 ;=========================================================================== ;=========================================================================== ;=========================================================================== [ASK_DEL_AUTOGRAB_GER] Achtung! Es befinden sich noch MP3 Dateien im Verzeichnis %(ClipIncRoot)\AutoGrab Soll dieses Verzeichnis inklusive aller enthaltenen Dateien gelöscht werden? [ASK_DEL_AUTOGRAB_ENG] Attention! This folder still contains one or more MP3 files: %(ClipIncRoot)\AutoGrab Are you sure you want to remove this folder and all its contents? [ASK_DEL_AUTOGRAB_FRA] Attention! This folder still contains one or more MP3 files: %(ClipIncRoot)\AutoGrab Are you sure you want to remove this folder and all its contents? [ASK_DEL_AUTOGRAB_NED] Attention! This folder still contains one or more MP3 files: %(ClipIncRoot)\AutoGrab Are you sure you want to remove this folder and all its contents? [ASK_DEL_AUTOGRAB_ITA] Attention! This folder still contains one or more MP3 files: %(ClipIncRoot)\AutoGrab Are you sure you want to remove this folder and all its contents? NEU!---------------script--------- (script/) [INIT] #define __ASK_UNINST_PAGE__ TRUE Version = 2.05.00 ; Script Version ProgShowName = ClipInc. ProgShortName = ClipInc. ProgramGroup = Tobit Software\%P UninstallShowName = Tobit Uninstall HeadLine = Uninstall FromYear = 2003 Uninstall = TRUE UninstIcon = 0 ;Languages = ger [Deutsch] DefaultLanguage = ger ResPath = TobitCltPath = ServerApp = FALSE #ServerApplication(0); ;; ---------------------------------------------------------------------------- #RegQueryValue ("HKEY_CURRENT_USER", "Software\Tobit\Tobit ClipInc\Client", "RootDirectory", "RootDirectory"); #RegQueryValue ("HKEY_CURRENT_USER", "Software\Tobit\Tobit ClipInc\Client\Setup", "Language", "CurrentLanguage"); #RegQueryValue ("HKEY_CURRENT_USER", "Software\Tobit\Tobit ClipInc\Client\Setup", "ProgramGroup", "ProgGroup"); #RegQueryValue ("HKEY_LOCAL_MACHINE", "Software\Tobit\David", "RootDirectory", "DavidRoot"); #RegQueryValue ("HKEY_CURRENT_USER", "Software\Tobit\Tobit InfoCenter\Settings", "ProgramDirectory", "TICDir"); #ifdef RootDirectory TargetDir = %(RootDirectory)\ #undef RootDirectory #else #Exit #endif #ifdef CurrentLanguage Languages = %(CurrentLanguage) DefaultLanguage = %(CurrentLanguage) #Undef CurrentLanguage #endif #ifdef ProgGroup ProgramGroup = "%(ProgGroup)" #undef ProgGroup #endif #RegQueryValue ( "HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion", "ProgramFilesDir", "ProgramFilesDir" ); ;; ============================================================================ [PRESTART] #StrReplace( "%(TargetDir)", "\Player", "", "ClipIncRoot" ); #CheckForFiles("%(ClipIncRoot)\AutoGrab", "*.mp3"); #if #Result #if #MessageBox( "##[ASK_DEL_AUTOGRAB_%l]", "%P%E", "MB_ICONQUESTION|MB_YESNO", "IDYES" ) #define DEL_AUTOGRAB #endif #else #define DEL_AUTOGRAB #endif #undef ClipIncRoot ;; ============================================================================ [COPY] #SetDlgCheckBmpState1 = 1 #SetDlgCheckBmpState1 = 2 #SetDlgCheckBmpState2 = 1 #Sleep = 2000 #SetDlgCheckBmpState2 = 2 #SetDlgCheckBmpState3 = 1 #Sleep = 2000 #RootDel %(TargetDir) #StrReplace( "%(TargetDir)", "\Player", "", "ClipIncRoot" ); #ifdef ClipIncRoot #ifdef DEL_AUTOGRAB #RootDel "%(ClipIncRoot)\AutoGrab" #endif #EmptyDel "%(ClipIncRoot)" #endif #EmptyDel "%(ProgramFilesDir)\Tobit ClipInc" #rootdir= #destpath=%(windir)\ #if ( !defined( DavidRoot ) && !defined( TICDir ) ) ;#del tobitclt.dll #SharedFileRemove( "%(windir)\TOBITCLT.DLL", 4 ); #endif #rootdir= #destpath=%(WinSysDir)\ #SetDlgCheckBmpState3 = 2 #SetDlgCheckBmpState4 = 1 #Sleep = 1000 #rootdir= #destpath= #RootDel %g\%G #Sleep=1000 #EmptyDel "%g\Tobit" #EmptyDel "%g\Tobit Software" #SetDlgCheckBmpState4 = 2 #SetDlgCheckBmpState5 = 1 #Sleep = 1000 #GetProgGroupPath ( "DesktopDir", "DESKTOPDIR" ); #ifdef DesktopDir #ShortCutDel ( "%(DesktopDir)", "Tobit ClipInc.." ); #ShortCutDel ( "%(DesktopDir)", "ClipInc. Reloaded." ); #ShortCutDel ( "%(DesktopDir)", "ClipInc.." ); #undef DesktopDir #endif #GetProgGroupPath ( "AppData", "APPDATA" ); #ifdef AppData #ShortCutDel ( "%(AppData)\Microsoft\Internet Explorer\Quick Launch", "Tobit ClipInc.." ); #ShortCutDel ( "%(AppData)\Microsoft\Internet Explorer\Quick Launch", "ClipInc. Reloaded." ); #ShortCutDel ( "%(AppData)\Microsoft\Internet Explorer\Quick Launch", "ClipInc.." ); #undef AppData #endif #SetDlgCheckBmpState5 = 2 #SetDlgCheckBmpState6 = 1 #Sleep = 1000 #RegDeleteKey ("HKEY_CURRENT_USER", "Software\Tobit", "Tobit ClipInc"); #RegDeleteKey ("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Uninstall", "Tobit ClipInc Client"); #GetDOSPath ( "%(winsysdir)\Tobit ClipInc.scr", "ScrShortFN", 0 ); #RegQueryValue ( "HKEY_CURRENT_USER", "Control Panel\Desktop", "SCRNSAVE.EXE", "InstalledScrFN" ); #ifdef InstalledScrFN #if stricmp( "%(ScrShortFN)", "%(InstalledScrFN)" ) #SCREENSAVER( "%(ScrShortFN)", 1 ); #rootdir= #destpath=%(winsysdir)\ #del "Tobit ClipInc.scr" #RegDeleteKey ("HKEY_CURRENT_USER", "Software\Tobit\Tobit ClipInc", "Screen Saver Settings"); #endif #endif #rootdir= #destpath=%(windir)\ #del CICUnins.exe #SetDlgCheckBmpState6 = 2 #Sleep = 2000 ;=========================================================================== ;=========================================================================== ;=========================================================================== [ASK_DEL_AUTOGRAB_GER] Achtung! Es befinden sich noch MP3 Dateien im Verzeichnis %(ClipIncRoot)\AutoGrab Soll dieses Verzeichnis inklusive aller enthaltenen Dateien gelöscht werden? [ASK_DEL_AUTOGRAB_ENG] Attention! This folder still contains one or more MP3 files: %(ClipIncRoot)\AutoGrab Are you sure you want to remove this folder and all its contents? [ASK_DEL_AUTOGRAB_FRA] Attention! This folder still contains one or more MP3 files: %(ClipIncRoot)\AutoGrab Are you sure you want to remove this folder and all its contents? [ASK_DEL_AUTOGRAB_NED] Attention! This folder still contains one or more MP3 files: %(ClipIncRoot)\AutoGrab Are you sure you want to remove this folder and all its contents? [ASK_DEL_AUTOGRAB_ITA] Attention! This folder still contains one or more MP3 files: %(ClipIncRoot)\AutoGrab Are you sure you want to remove this folder and all its contents? (/script) NEU!---------html------- (html/) [INIT] #define __ASK_UNINST_PAGE__ TRUE Version = 2.05.00 ; Script Version ProgShowName = ClipInc. ProgShortName = ClipInc. ProgramGroup = Tobit Software\%P UninstallShowName = Tobit Uninstall HeadLine = Uninstall FromYear = 2003 Uninstall = TRUE UninstIcon = 0 ;Languages = ger [Deutsch] DefaultLanguage = ger ResPath = TobitCltPath = ServerApp = FALSE #ServerApplication(0); ;; ---------------------------------------------------------------------------- #RegQueryValue ("HKEY_CURRENT_USER", "Software\Tobit\Tobit ClipInc\Client", "RootDirectory", "RootDirectory"); #RegQueryValue ("HKEY_CURRENT_USER", "Software\Tobit\Tobit ClipInc\Client\Setup", "Language", "CurrentLanguage"); #RegQueryValue ("HKEY_CURRENT_USER", "Software\Tobit\Tobit ClipInc\Client\Setup", "ProgramGroup", "ProgGroup"); #RegQueryValue ("HKEY_LOCAL_MACHINE", "Software\Tobit\David", "RootDirectory", "DavidRoot"); #RegQueryValue ("HKEY_CURRENT_USER", "Software\Tobit\Tobit InfoCenter\Settings", "ProgramDirectory", "TICDir"); #ifdef RootDirectory TargetDir = %(RootDirectory)\ #undef RootDirectory #else #Exit #endif #ifdef CurrentLanguage Languages = %(CurrentLanguage) DefaultLanguage = %(CurrentLanguage) #Undef CurrentLanguage #endif #ifdef ProgGroup ProgramGroup = "%(ProgGroup)" #undef ProgGroup #endif #RegQueryValue ( "HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion", "ProgramFilesDir", "ProgramFilesDir" ); ;; ============================================================================ [PRESTART] #StrReplace( "%(TargetDir)", "\Player", "", "ClipIncRoot" ); #CheckForFiles("%(ClipIncRoot)\AutoGrab", "*.mp3"); #if #Result #if #MessageBox( "##[ASK_DEL_AUTOGRAB_%l]", "%P%E", "MB_ICONQUESTION|MB_YESNO", "IDYES" ) #define DEL_AUTOGRAB #endif #else #define DEL_AUTOGRAB #endif #undef ClipIncRoot ;; ============================================================================ [COPY] #SetDlgCheckBmpState1 = 1 #SetDlgCheckBmpState1 = 2 #SetDlgCheckBmpState2 = 1 #Sleep = 2000 #SetDlgCheckBmpState2 = 2 #SetDlgCheckBmpState3 = 1 #Sleep = 2000 #RootDel %(TargetDir) #StrReplace( "%(TargetDir)", "\Player", "", "ClipIncRoot" ); #ifdef ClipIncRoot #ifdef DEL_AUTOGRAB #RootDel "%(ClipIncRoot)\AutoGrab" #endif #EmptyDel "%(ClipIncRoot)" #endif #EmptyDel "%(ProgramFilesDir)\Tobit ClipInc" #rootdir= #destpath=%(windir)\ #if ( !defined( DavidRoot ) && !defined( TICDir ) ) ;#del tobitclt.dll #SharedFileRemove( "%(windir)\TOBITCLT.DLL", 4 ); #endif #rootdir= #destpath=%(WinSysDir)\ #SetDlgCheckBmpState3 = 2 #SetDlgCheckBmpState4 = 1 #Sleep = 1000 #rootdir= #destpath= #RootDel %g\%G #Sleep=1000 #EmptyDel "%g\Tobit" #EmptyDel "%g\Tobit Software" #SetDlgCheckBmpState4 = 2 #SetDlgCheckBmpState5 = 1 #Sleep = 1000 #GetProgGroupPath ( "DesktopDir", "DESKTOPDIR" ); #ifdef DesktopDir #ShortCutDel ( "%(DesktopDir)", "Tobit ClipInc.." ); #ShortCutDel ( "%(DesktopDir)", "ClipInc. Reloaded." ); #ShortCutDel ( "%(DesktopDir)", "ClipInc.." ); #undef DesktopDir #endif #GetProgGroupPath ( "AppData", "APPDATA" ); #ifdef AppData #ShortCutDel ( "%(AppData)\Microsoft\Internet Explorer\Quick Launch", "Tobit ClipInc.." ); #ShortCutDel ( "%(AppData)\Microsoft\Internet Explorer\Quick Launch", "ClipInc. Reloaded." ); #ShortCutDel ( "%(AppData)\Microsoft\Internet Explorer\Quick Launch", "ClipInc.." ); #undef AppData #endif #SetDlgCheckBmpState5 = 2 #SetDlgCheckBmpState6 = 1 #Sleep = 1000 #RegDeleteKey ("HKEY_CURRENT_USER", "Software\Tobit", "Tobit ClipInc"); #RegDeleteKey ("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Uninstall", "Tobit ClipInc Client"); #GetDOSPath ( "%(winsysdir)\Tobit ClipInc.scr", "ScrShortFN", 0 ); #RegQueryValue ( "HKEY_CURRENT_USER", "Control Panel\Desktop", "SCRNSAVE.EXE", "InstalledScrFN" ); #ifdef InstalledScrFN #if stricmp( "%(ScrShortFN)", "%(InstalledScrFN)" ) #SCREENSAVER( "%(ScrShortFN)", 1 ); #rootdir= #destpath=%(winsysdir)\ #del "Tobit ClipInc.scr" #RegDeleteKey ("HKEY_CURRENT_USER", "Software\Tobit\Tobit ClipInc", "Screen Saver Settings"); #endif #endif #rootdir= #destpath=%(windir)\ #del CICUnins.exe #SetDlgCheckBmpState6 = 2 #Sleep = 2000 ;=========================================================================== ;=========================================================================== ;=========================================================================== [ASK_DEL_AUTOGRAB_GER] Achtung! Es befinden sich noch MP3 Dateien im Verzeichnis %(ClipIncRoot)\AutoGrab Soll dieses Verzeichnis inklusive aller enthaltenen Dateien gelöscht werden? [ASK_DEL_AUTOGRAB_ENG] Attention! This folder still contains one or more MP3 files: %(ClipIncRoot)\AutoGrab Are you sure you want to remove this folder and all its contents? [ASK_DEL_AUTOGRAB_FRA] Attention! This folder still contains one or more MP3 files: %(ClipIncRoot)\AutoGrab Are you sure you want to remove this folder and all its contents? [ASK_DEL_AUTOGRAB_NED] Attention! This folder still contains one or more MP3 files: %(ClipIncRoot)\AutoGrab Are you sure you want to remove this folder and all its contents? [ASK_DEL_AUTOGRAB_ITA] Attention! This folder still contains one or more MP3 files: %(ClipIncRoot)\AutoGrab Are you sure you want to remove this folder and all its contents? (/html)