PureBasic Forums - English

http://www.purebasic.com
https://www.purebasic.fr/english/

Oridan Windows Cleanup

https://www.purebasic.fr/english/viewtopic.php?t=27139

Page 1 of 2

Oridan Windows Cleanup

Posted: Sun May 20, 2007 2:09 am
by oridan
Oridan Windows Cleanup
Oridan Windows Cleanup is an Privacy Cleanup
that protects your privacy by erasing all the tracks
of your internet and computer activities

Oridan Windows Cleanup is FREE.

Image

Support:
Microsoft Windows 98SE/ME/2000/XP/Vista
Internet Explorer 5.5 or higher
Mozilla Firefox 1.5 or higher
Opera 9.0 or higher
Netscape 8.0

Main Features
Erase Recycle Bin
Erase Recent Documents
Erase Start Menu Run and Find History
Erase Windows Temporary Files
Erase Clipboard
Erase Cookies
Erase History
Erase Forms Autocomplete
Erase TypedURLs
Erase Cache (Files Temporary Internet)
Erase Index.dat Files

Latest Version
Version 1.2.0 (October, 2007)
Language: Italian, English
Size: 92 KB

Download: http://xoomer.alice.it/oridan

Posted: Sun May 20, 2007 2:13 am
by Dare
Is this a product developed in purebasic?

Posted: Sun May 20, 2007 2:16 am
by oridan
Dare wrote:Is this a product developed in purebasic?
Yes. :D

Posted: Sun May 20, 2007 3:42 am
by Brice Manuel
Very nice work!

Posted: Sun May 20, 2007 7:35 am
by Pantcho!!
I was waiting for that :)

any chance for an english version?

:)

Posted: Sun May 20, 2007 11:44 am
by milan1612
OK, it's quite fast. It examined my 4 HDs with together 750 GB in 8 minutes
and found 487 files :shock:

Posted: Sun May 20, 2007 1:09 pm
by LuCiFeR[SD]
Now is it me, or is the language selection back to front. eg. if you select Italian, it displays the english language... select English and it displays in italian?

Posted: Sun May 20, 2007 3:24 pm
by oridan
LuCiFeR[SD] wrote:Now is it me, or is the language selection back to front. eg. if you select Italian, it displays the english language... select English and it displays in italian?
I used Droopy's Library to determine the system language.
This is my code to set up the language.
If the code is wrong, I correct immediately!

Code: Select all

; Startup

;{ GET LANGUAGE
Global SetLang.s
Lang$ = Reg_ReadString(#HKEY_CURRENT_USER,"Software\OridanWindowsCleanup","Lang")
If Lang$ = ""
  language = GetLanguage(1)
  If language = 16
    LocalTextInit(16) ;/ Italian
    SetLang.s = "ITA" 
  Else
    LocalTextInit(9)  ;/ English
    SetLang.s = "ENG"
  EndIf    
Else
  If Lang$ = "ITA"
    LocalTextInit(16) ;/ Italian
    SetLang.s = "ITA"
  EndIf
  If Lang$ = "ENG"
    LocalTextInit(9) ;/ English
    SetLang.s = "ENG"
  EndIf  
EndIf
;}

;...

; Load language for GUI
;{ Set Language
If Lang$ = ""
  language = GetLanguage(1)
  If language = 16
    SetGadgetState(#SelectLang, 0)
  Else
    SetGadgetState(#SelectLang, 1)
  EndIf    
Else
  If Lang$ = "ITA"
    SetGadgetState(#SelectLang, 0)
  EndIf
  If Lang$ = "ENG"
    SetGadgetState(#SelectLang, 1)
  EndIf 
EndIf
;}

;...
; Set language
    If GadgetID = #AppLang
      If GetGadgetState(#SelectLang)=0        
        Reg_WriteString(#HKEY_CURRENT_USER,"Software\OridanWindowsCleanup","Lang","ITA")
      EndIf
      If GetGadgetState(#SelectLang)=1        
        Reg_WriteString(#HKEY_CURRENT_USER,"Software\OridanWindowsCleanup","Lang","ENG")
      EndIf
      DisableGadget(#AppLang, 1)
      If MessageRequester(LocalText("Informazione","Information"),LocalText("Riavviare il programma per impostare la nuova lingua?","Do you want restart the program to set up the new language?"), #PB_MessageRequester_YesNo|#MB_ICONQUESTION)=#PB_MessageRequester_Yes
        Result$ = ProgramFilename()
        RunProgram(Result$, "", "")
        End
      EndIf
    EndIf

Posted: Sun May 20, 2007 9:30 pm
by LuCiFeR[SD]
Let me show you how it looks on my system.

Image

and

Image

Does this explain things a little better?

I am not saying your software is bad btw, I am VERY impressed by how professional it looks and works :P

My Italian is not all that good, although it should be a lot better seeing as I work for an italian tool firm hehehe.

But to me it seems as though when English should be displayed, it shows italian... and the reverse is true also. I hope it is just something broken on my system, but it would be good to have others results too :)

If you need any PC specs, I'll post them here for you on request.

Posted: Sun May 20, 2007 10:02 pm
by oridan
Hi LuCiFeR[SD]!

You are right. I published my code to show how you work.

You check in the register if the value exists (HKEY_CURRENT_USER\SOFTWARE\OridanWindowsCleanup,Lang).
If the value exists please cancel you.
You restart the program, setup you langue and check…
Here there is the new version.

Setup file:http://home.tele2.it/oridan/down/Oridan ... pSetup.exe
Zip file: http://home.tele2.it/oridan/down/Oridan ... leanup.zip

You let me know...

If someone has the same problem, please your to report the problem.
Thank you :wink:

Posted: Sun May 20, 2007 11:33 pm
by LuCiFeR[SD]
oridan, perhaps I am confusing you with our language differences?

The registry is displaying the language for your program as "ITA"

but displaying english text.

I am going to completely remove your program (including deleting registry keys) and reinstall. I will let you know the results very soon :).

[Edit]

The new version is displaying english now from selecting "English" from the installer. but the registry is showing "ITA" as the language... perhaps it is not so much a problem with the code, but a language translation problem?

as in, just the text in the combo box being displayed in the wrong order?

Il mio italiano è terribile. altrimenti proverei a spiegare nella vostra propria lingua. ;)

Posted: Mon May 21, 2007 1:30 am
by oridan
Hi LuCiFeR[SD],
Here an example the same as my program.

Code: Select all

;{ GET LANGUAGE
Global SetLang.s,Lang$,language
Lang$ = Reg_ReadString(#HKEY_CURRENT_USER,"Software\Test","Lang")
If Lang$ = ""             ;/ If value not exist
  language = GetLanguage(1);/ get language you system
  If language = 16    ; If language = 16 (16 = Italian)
    LocalTextInit(16) ;/ Italian
    SetLang.s = "ITA" ; Set Italian language
  Else                ; else
    LocalTextInit(9)  ;/ English
    SetLang.s = "ENG" ; Set English language
  EndIf    
Else
  If Lang$ = "ITA"    ; If value on the registry is ITA
    LocalTextInit(16) ;/ Italian
    SetLang.s = "ITA" ; Set Italian as language
  ElseIf Lang$ = "ENG"; else if value is ENG
    LocalTextInit(9) ;/ English
    SetLang.s = "ENG"; Set English as language
  EndIf  
EndIf
;}

If OpenWindow(0, 0, 0, 300, 200, "Example", #PB_Window_SystemMenu|#PB_Window_TitleBar|#PB_Window_ScreenCentered)
  If CreateGadgetList(WindowID(0))
    TextGadget(1, 20, 20, 160, 15, LocalText("Questo è una prova.", "This is a test."))
    ButtonGadget(2, 160, 50, 90, 24, LocalText("Imposta","Set"))
    ComboBoxGadget(3, 20, 50, 100, 100)
    AddGadgetItem(3, -1, LocalText("Italiano","Italian")) 
    AddGadgetItem(3, -1, LocalText("Inglese","English")) 
  EndIf
EndIf

;{ Set Language
If Lang$ = ""
  language = GetLanguage(1)
  If language = 16
    SetGadgetState(3, 0)
  Else
    SetGadgetState(3, 1)
  EndIf    
Else
  If Lang$ = "ITA"
    SetGadgetState(3, 0)
  ElseIf Lang$ = "ENG"
    SetGadgetState(3, 1)
  EndIf 
EndIf
;}

 Repeat
  Event = WaitWindowEvent()    
  GadgetID = EventGadget() 
  
  If Event = #PB_Event_Gadget
    If GadgetID = 2
      If GetGadgetState(3)=0        
        Reg_WriteString(#HKEY_CURRENT_USER,"Software\Test","Lang","ITA")
      EndIf
      If GetGadgetState(3)=1        
        Reg_WriteString(#HKEY_CURRENT_USER,"Software\Test","Lang","ENG")
      EndIf
      DisableGadget(2, 1)
      If MessageRequester(LocalText("Informazione","Information"),LocalText("Riavviare il programma per impostare la nuova lingua?","Do you want restart the program to set up the new language?"), #PB_MessageRequester_YesNo|#MB_ICONQUESTION)=#PB_MessageRequester_Yes
        Result$ = ProgramFilename()
        RunProgram(Result$, "", "")
        End
      EndIf
    EndIf    
  EndIf
  
 Until Event = #PB_Event_CloseWindow
End
Please try it to verify if you work.
If you do not work, consider am a problem of your system.

New updating of Oridan Windows Cleanup.

Setup file:http://home.tele2.it/oridan/down/Oridan ... pSetup.exe
Zip file: http://home.tele2.it/oridan/down/Oridan ... leanup.zip

Posted: Mon May 21, 2007 3:09 pm
by Psychophanta
Hi.
It works nice here.
I like that program. Powerful, simple, small and only one file; those ARE the adjectives of quality in my view. :wink:

Posted: Mon May 21, 2007 4:56 pm
by oridan
Psychophanta wrote:Hi.
It works nice here.
I like that program. Powerful, simple, small and only one file; those ARE the adjectives of quality in my view. :wink:
Thanks Psychophanta... :wink:

Re: Oridan Windows Cleanup

Posted: Mon May 21, 2007 9:21 pm
by NoahPhense
Very nice, what method are you using to to kill the index.dat --Moving it
or Deleting it upon boot-up?

- np
All times are UTC+01:00
Page 1 of 2

Powered by phpBB® Forum Software © phpBB Limited