Burning CD\DVD

Здравствуйте... Суть вопроса есть код на delphi

Код (Text):

1. procedure TForm1.Button1Click(Sender: TObject);
2. begin
3.   MsftDiscRecorder.InitializeDiscRecorder(MsftDiscMaster.Item[RecordersComboBox.itemindex]);
4.   MsftDiscFormat2Erase.Recorder:=MsftDiscRecorder.DefaultInterface;
5.   MsftDiscFormat2Erase.ClientName:='IMAPI';
6.  
7.   MsftDiscFormat2Erase.EraseMedia;
8.   MsftDiscRecorder.Disconnect;
9.   ShowMessage('Диск стёрт');
10.  
11. end;

ну и собственно как его переделать на fasm???

ps Крайне интересно есть ли какие ни какие учебники по записи дисков???

 

dgs
MSDN imapi
и статьи на сайте, как с ком объектами работать

 

А более рускоязычного неа?

 

yandex+imapi

 

dgs

Ох, как то в прошлом году пытался. На ассемблере это делать - вообще жопа. Пытался на VBNET. В конце концов плюнул и использовал утилиты от мелкософта dvdburn.exe и cdburn.exe.
Только я не через imapi пытался сделать, через DeviceIOControl и SCSI_PASS_THROUGH.
Если интересно как, вот ссылка на статью Криса Касперски "Способы взаимодействия с диском на секторном уровне" http://www.insidepro.com/kk/020/020r.shtml

 

спс