cassetto del CD-ROM
کدی برای تغییر ولوم درایو مورد نظر

function ImpostaNomeDisco( const Disco: Char; const Etichetta: String): Boolean;
begin
Result := SetVolumeLabel(PChar(Disco + ':\'), PChar(Etichetta));
end;
//////////////////////////

procedure TForm1.Button1Click(Sender: TObject);
begin
ImpostaNomeDisco('A', 'Prova')
end;