MZP@ !L!This program must be run under Microsoft Windows. $NE @PP q 00h0:0B0 V(0~30sysDiskLIBENTRYWEP˸0 Borland Standard File@|~@ cFormUIManagerUIContainerUIObjectPageFormObjButtonText f&open+close+canArrive2arrive2setFocus+canDepart2removeFocus+depart2mouseEnter,mouseExit,mouseMove,mouseDown,mouseUp,mouseDouble,mouseRightDown,mouseRightUp,mouseRightDouble,keyPhysical-keyChar-action.menuAction/timer4pushButton+changeValue0calcField+run+newValue+proc+error3status1mouseClick,init+stringListChange+UsesTypeVarConstProc|EP  CUo ]Tn *3?.4Cd:\w\Corel\WordPerfect Office 2000\Paradox\PDOXHome\DEFAULT.FTB#Formdata1POST> ETn  6P  *02< J RemplString1e0 U? method pushButton(var eventInfo Event) ; Michel Claveau Informatique var oa oleauto str,sret string endvar if not oa.open("Ponx.Mci") then errorshow() return endif str="from win32com.client import Dispatch FSO = Dispatch('Scripting.FileSystemObject') listDrives = FSO.Drives for item in listDrives:"+" vifi('') vifi('Lettre du Drive :'+str(item.DriveLetter)) vifi('Type de Drive :'+str(item.DriveType)) vifi('Type format :'+str(item.FileSystem)) vifi('Accs (prt ?) :'+str(item.IsReady))"+" vifi('Numro de srie :'+str(item.SerialNumber)) vifi('Nom du volume :'+str(item.VolumeName)) vifi('Nom de partage :'+str(item.ShareName)) vifi('Path :'+str(item.Path))"+" vifi('Dossier racine :'+str(item.RootFolder)) vifi('Espace disponible:'+str(item.AvailableSpace)) vifi('Espace libre :'+str(item.FreeSpace)) vifi('Taille totale :'+str(item.TotalSize))" sret=oa.PRun(str) msginfo("Retourn par PONX",sret) oa.close() endMethod pushButton+0 U" :02< !   ! 02< 6 Infos systme sur les units (disques, lecteurs...)  @-t"Arial Narrownsed22@"Arial Narrownsed22pV0dN) CONTAINERd\bACTIVE>LASTMOUSECLICKED\SUBJECTbZLASTMOUSERIGHTCLICKED<0(SELFZ #FORMDATA1?[#PAGE2  REMPLSTRING1\(" N#TEXTE33C!\\ PUSHBUTTON METHOD_SELF EVENTINFOE1Z METHOD_SELF  EVENTINFOOASTRPSRETlr>r{2 *pr"  { "  B"DD&83",'A," "P%(%(%(*"lP-*t" lMA"DD" lDPl,8 +     N 1,'"0Ponx.Mcifrom win32com.client import Dispatch FSO = Dispatch('Scripting.FileSystemObject') listDrives = FSO.Drives for item in listDrives: vifi('') vifi('Lettre du Drive :'+str(item.DriveLetter)) vifi('Type de Drive :'+str(item.DriveType)) vifi('Type format :'+str(item.FileSystem)) vifi('Accs (prt ?) :'+str(item.IsReady)) vifi('Numro de srie :'+str(item.SerialNumber)) vifi('Nom du volume :'+str(item.VolumeName)) vifi('Nom de partage :'+str(item.ShareName)) vifi('Path :'+str(item.Path)) vifi('Dossier racine :'+str(item.RootFolder)) vifi('Espace disponible:'+str(item.AvailableSpace)) vifi('Espace libre :'+str(item.FreeSpace)) vifi('Taille totale :'+str(item.TotalSize))PRUNRetourn par PONX