Please solve my problem

[santy]

Helloooo!

my problem is that i want my application to be run when the application in floppy and as i insert the floppy in floppy drive.


Thanks in advance.

Santy

[beachbum]

Hi
Can't be 100% sure but i really dont think u can do that. U can autorun from CD.
Regards
Stuart

[Kaverin]

You could try to access the file that you're trying to get to run from the A drive inside a timer, and when you can actually get the file, run it, but that's not really an elegant solution. The CD thing beachbum mentioned would be much better though.

totally unrelated note: beachbum, look deep into my avatar... could you wash my car? hehehe

[TiPeRa]

I think it can be done. Xteq X-Setup has the option to autorun removable drives (diskettes, ZIP) etc. It use the registry path:

HKLM\System\CurrentControlSet\Services\Cdrom\Autorun

Here is all the code: (not sure if it works)

'HKLM\System\CurrentControlSet\Services\Cdrom\Autorun

'Declaration of some constants
DRIVE_UNKNOWN=1   'Bit 0
DRIVE_NO_ROOT=2   'Bit 1
DRIVE_REMOVABLE=4 'Bit 2 
DRIVE_FIXED=8     'Bit 3 
DRIVE_REMOTE=16   'Bit 4 
DRIVE_CDROM=32    'Bit 5 
DRIVE_RAMDISK=64  'Bit 6 
DRIVE_FUTURE=128  'Bit 7 

sPathValue="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDriveTypeAutoRun"

'Called when the Plugin is started
SUB Plugin_Initialize
 s=RegReadValue(sPathValue)

 dim i
 if len(s)>1 then
    s=left(s,2)
    i=s
 else
    i=CInt(0)
 end if
 
 '//Convert the value to INT
 s="&H" & i
 i=CInt(s)


 'TH: Looks stupid, I know! but there is no way to get OR working with variants!
 'AK: JScript ||. Should work

 dim b1,b2,b3,b4,b5,b6,b7
 i=OrHelper(i,DRIVE_FUTURE,b1)
 i=OrHelper(i,DRIVE_RAMDISK,b2) 
 i=OrHelper(i,DRIVE_CDROM,b3)
 i=OrHelper(i,DRIVE_REMOTE,b4)
 i=OrHelper(i,DRIVE_FIXED,b5)
 i=OrHelper(i,DRIVE_REMOVABLE,b6)
 i=OrHelper(i,DRIVE_NO_ROOT,b7)


 '//If the bit is set, AutoRun is DISABLED
 Call SetBox(b3,1)
 Call SetBox(b6,2)
 Call SetBox(b5,3)
 Call SetBox(b4,4)
END SUB

Function OrHelper(CurValue,CheckVal,CheckValSet)
 i=CurValue

 if i>=CheckVal then
    CheckValSet=true
    i=i-CheckVal
 else
    CheckValSet=false
 end if

 OrHelper=i
End Function

Sub SetBox(CurVal,Elm)
    if CurVal=true then
       SetUIElement elm,false
    else
       SetUIElement elm,true
    end if
End Sub


'Called when the Plugin should validate the Data the user has entered
SUB Plugin_CheckData(ElementIndex)
END SUB

'Called when the Plugin should apply the changes
SUB Plugin_Apply(ElementIndex,ElementSubIndex)
 i=0

 'Always disable autorun for the following drives 
 'according to Q136214 from MS KB
 i=i+DRIVE_UNKNOWN
 i=i+DRIVE_FUTURE
 '//Needed??? i=i+DRIVE_NO_ROOT


 'No let's see what the user wants
 if GetUIElement(1)=false then i=i+DRIVE_CDROM
 if GetUIElement(2)=false then i=i+DRIVE_REMOVABLE
 if GetUIElement(3)=false then i=i+DRIVE_FIXED
 if GetUIElement(4)=false then i=i+DRIVE_REMOTE

 'Convert to HEX so XSET can write the value
 Dim v
 v=Hex(i) 
 v=v & "000000"
 

 Call RegWriteValue(sPathValue,v,3)
 Call Restart
END SUB

'Called when the Plugin is about to be removed from memory
SUB Plugin_Terminate
END SUB

[TiPeRa]

IMPORTANT: If you activate AutoRun for removable devices or network drives, Windows will check these drives every time you open the explorer or a file requester in an application. Because this check takes some time, this behavior can be really annoying. Please keep this in mind.