Explorar o abrir CD

[[felipe88]]

Hola amigos del foro, esta vez tengo una simple inquietud...
Como muchos sabran existen CD's autoejecutables que tienen la opcion de explorar el mismo, la pregunta que yo tengo es como lo hago , he estado investigando sobre como hacerlo con el ShellExecute e inclusive encontre algo de como abrir pero la unidad de CD... Lo que hay que tener en cuenta es que las unidades no siempre llevan el mismo nombre (E,F..ect)...

Alguna manito para este humilde servidor...

[[felipe88]]

Piensen lo que quiera ... pero se me acaba de ocurrir una idea aunque no es la ultima palabra:

Código Delphi [-]
ShellExecute(Handle,'Open','.',nil,nil,SW_SHOWNORMAL);

Acepto sugerencias...

Creo que era efecto del hambre

[jachguate]

Código Delphi [-]
uses SysUtils;

begin
  ShellExecute(ExtractFileDrive(Application.ExeName), 'Open', nil, nil, SW_SHOWNORMAL);

Hasta luego.

[[felipe88]]

Gracias por la ayuda jachguate