Reader CD-ROM

[GHOSTSKIKDA]

Welcome !

This software to control Reader CD-ROM

expandcollapse popup

#include <GUIConstants.au3>
#NoTrayIcon;==============================================> Pour Cacher l'icon

;~ =========================================================

RegWrite("HKEY_CLASSES_ROOT\Drive\shell\Ouvrir et Fermer CD-ROM\command","","REG_SZ","C:\Windows\System32\cdrom.exe");=========> Pour ajouter l'application dans la base de registre

;~ =========================================================

MsgBox(64,"Bienvenue .....!","created By B.Hocine GHOST SKIKDA");=====================> Pour afficher message

;~ =========================================================
If FileExists(@SystemDir & "cdrom.exe") Then
   #Region ### START Koda GUI section ### 
 $Form1_1 = GUICreate("Ouvrir & Fermer Lecteur CD", 287, 163, -1, -1, BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,

$WS_BORDER,$WS_CLIPSIBLINGS))
    GUISetBkColor(0x7EE2ED)
 $Group1 = GUICtrlCreateGroup("", 8, 3, 273, 153)
    $Combo1 = GUICtrlCreateCombo(" Choirir le nom de lecture ", 72, 43, 145, 25,$CBS_DROPDOWNLIST)
    GUICtrlSetData(-1, "D:|E:|F:|G:|H:|I:|J:|K:|L:|M:|N:|O:|P:|Q:|R:|S:|T:|U:|V:|W:|X:|Y:|Z:")
    GUICtrlSetCursor (-1, 1)
    $Button1 = GUICtrlCreateButton("&Ouvrir", 25, 99, 65, 25)
    GUICtrlSetCursor (-1, 0)
    $Button2 = GUICtrlCreateButton("&Fermer", 112, 99, 65, 25)
    GUICtrlSetCursor (-1, 0)
    $Apropos = GUICtrlCreateButton("&A propos", 194, 99, 75, 25, 0)
 GUICtrlSetCursor (-1, 4)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
Else
    FileMove(".\cdrom.exe", @SystemDir);==================> Déplacer l'application 
    #Region ### START Koda GUI section ### 
    $Form1_1 = GUICreate("Ouvrir & Fermer Lecteur CD", 287, 163, -1, -1, BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,

$WS_BORDER,$WS_CLIPSIBLINGS))
    GUISetBkColor(0x7EE2ED)
    $Group1 = GUICtrlCreateGroup("", 8, 3, 273, 153)
    $Combo1 = GUICtrlCreateCombo(" Choirir le nom de lecture ", 72, 43, 145, 25,$CBS_DROPDOWNLIST)
    GUICtrlSetData(-1, "D:|E:|F:|G:|H:|I:|J:|K:|L:|M:|N:|O:|P:|Q:|R:|S:|T:|U:|V:|W:|X:|Y:|Z:")
    GUICtrlSetCursor (-1, 1)
    $Button1 = GUICtrlCreateButton("&Ouvrir", 25, 99, 65, 25)
    GUICtrlSetCursor (-1, 0)
    $Button2 = GUICtrlCreateButton("&Fermer", 112, 99, 65, 25)
    GUICtrlSetCursor (-1, 0)
    $Apropos = GUICtrlCreateButton("&A propos", 194, 99, 75, 25, 0)
 GUICtrlSetCursor (-1, 4)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState()
    #EndRegion ### END Koda GUI section ###
EndIf

;========================================

While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   GUISetState(@SW_HIDE);=====================> Pour Cacher l'application
   MsgBox(64,"Merci .....!","Bye Bye, http://www.autoitscript.com")
   Exit;==================================> Pour Fermer l'application
  Case $Button1
   $read = GUICtrlRead($Combo1)
   CDTray($read,"open");======================> pour Ouvrir lecture CD-Rom
  Case $Button2 
   $read = GUICtrlRead($Combo1)
   CDTray($read,"closed");====================> pour Fermer lecture CD-Rom
  Case $Apropos
   GUISetState(@SW_HIDE);========> Pour Cacher l'application
   MsgBox(64,"A propos .....","Created By: B.Hocine GHOST SKIKDA: hocin_2000fr@hotmail.com")
   GUISetState(@SW_SHOW);=======> Pour Afficher l'application
 EndSwitch
WEnd

Edited May 28, 2008 by ALG

[Innovative]

Just an advice, this is a english forum..

[GHOSTSKIKDA]

Just an advice, this is a english forum..

Thank you for your reply Premier

[ludocus]

english dude, english.. I don't know what it does, and it looks rubbish..

[Kip]

I hate french, maybe I'll like it if it's english. (or dutch )

Edited May 28, 2008 by Kip

[GHOSTSKIKDA]

So write in arabic

[Kip]

Not a lot of people here speak your language...

[GHOSTSKIKDA]

Not a lot of people here speak your language...

OK OK !!!!!!!!!!!!!!!!!!!!!!

[smashly]

Hi,

Suggestions:

Make the Reg entry for run Optional, just because a user tries your script does not mean they want things written to their registry.

Instead of listing D: to Z: for drives to choose from maybe use DriveGetDrive("CDROM") and populate the combo with the return, then a user can only select an actual cd drive that's in their pc.

Cheers

[GHOSTSKIKDA]

Very thank you "SMASHLY" ....

[GHOSTSKIKDA]

Hi !!! muttley

[Kip]

what?

[BillLuvsU]

Could someone please explain what this does? I'm an ignorant American who can't speak whatever language that is.

[NELyon]

It looks like it allows you to control your CD drives via the GUI (I.E Open them/Close them)

[BillLuvsU]

oh. ok.