Jak skopiować wszystkie pliki z płytki CD

Piszę ten gotowiec, ponieważ sam niedawno miałem taki problem. Myślę, że jest on kierowany głównie do osób początkujących.

Więc do dzieła.
Po pierwsze do listu modułów dodajemy ShellApi.

CD-ROMy mają różne litery tzn. na jednym komputerze CD-ROM jest oznaczony jako D:\; na drugim jako E:\ a na jesze innym Z:\.

Musimy zatem okreslić jaką literą jest oznaczony nasz CD-ROM. Dodajemy ComboBox i ustawiamy jego właściwość Visible na false. W tym comboBoxie program wpisze literę dysku CD-ROM.

teraz w sekcji public napisz:
Drive : char; zmienna char (jeden znak)

Teraz w OnActivateFormy piszemy:

begin 
  for drive := 'A' to 'Z' do 
    case GetDriveType(PChar(Drive+':\')) of   //pobierz literę
       DRIVE_CDROM: Combobox1.items.Add(Drive);  //wynik wyświetl w ComboBox1
    end; 

Sprawę litery mamy za sobą. teraz rzecz najważniejsz czyli samo kopiowanie.
Wstaw pole Edit (w nim użytkownik poda ścieżkę, gdzie ma być skopiowany CD), oraz przycisk.

W zdarzeniu OnClick przycisku:

var 
 X : TSHFileOpStruct; 
begin 
  with R do  
    begin 
      Wnd := Handle; //  uchwyt 
      lpszProgressTitle := 'Kopiuj pliki z CD'; Tytuł 
      wFunc :=FO_COPY;// opcja kopiowania 
      pFrom := PChar(Drive + ':\\nazwa_katalogu_z_którego);  z  
      pTo := PChar(Edit1.Text);  do
      fFlags := FOF_NOCONFIRMMKDIR; Flaga. Nie wyświetlaj okna gdy dany katalog już istnieje.
end; 
SHFileOperation(R);  

To by było na tyle