Como identificar a letra da unidade de DVD

Question

Criei um aplicativo que entre outras coisas copia arquivos de um DVD para a maquina do usuario, ai come�a o meu problema pois ao dar o caminho do arquivo para copia ao meu aplicativo tenho serios prob...

Aloizio Castro · Answer

Segue um codigo de como Pegar as unidades existentes no PC e como identifica-la.
Teste com o DVD, pois no delphi naum existe uma constante para este tipo de drive.

procedure TForm1.Button1Click(Sender: TObject);
  function TipoDrive(Unidade: Char) : Integer;
  begin
    Result := GetDriveType(PChar(Unidade));
    (*-- Resultados constantes
    DRIVE_UNKNOWN = 0;
    DRIVE_NO_ROOT_DIR = 1;
    DRIVE_REMOVABLE = 2;
    DRIVE_FIXED = 3;
    DRIVE_REMOTE = 4;
    DRIVE_CDROM = 5;
    DRIVE_RAMDISK = 6;
    //Teste com DVD para ver o retorno*)
  end;
var
  j : integer;
begin
  for j := 0 to ShellComboBox1.Items.Count -1 do
    if Pos(�:�,ShellComboBox1.Items[j]) > 0 then
    ShowMessage(ShellComboBox1.Items[j]);
end;

Abra�os

Emerson Nascimento · Answer

v�rios exemplos podem ser encontrados na internet.
um deles � o [b:ff97abd641]Carbonsoft cxDrive v.1.0[/b:ff97abd641], que pode ser encontrado no [url=http://www.torry.net/quicksearchd.php?String=drive&Title=Yes]Torry.net[/url]