CD Burning when drive unknown

[Rick]

hello you clever people. . . question. . .

How can i detect the drive letter of a RW drive if i havent got XP and more than 2 CD drives??

Any ideas???

ok, i sussed it thanks for looking

$var = DriveGetDrive( "CDROM" )

if $var[0] > 0 then

$CD = RegRead("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Imapi\Enum", "0")

$i = 1

While $i <= $var[0]

$Seek = RegRead("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Cdrom\Enum", $i-1)

if $Seek = $CD then

exitloop

endif

$i = $i + 1

wend

$Seek = stringreplace(StringMid ($Seek, 10, StringInStr ( $Seek, "__")-10),"_", " ")

MsgBox(4096,"Drive ", $var[$i])

MsgBox(4096,"CD Drive Description " & $var[$i], $Seek)

endif

Edited December 5, 2005 by Rick