Савенко Вадим Иванович:
А можете выложить свои наработки здесь? Что бы не начинать с нуля.

to Евгений/Genia007/
Пробовал таким образом получить поддерживаемые скорости, но получаю только одну цифру - 3.
Практически тот же код приведен в уроках по работе с COM/DCOM на сайте www.delphikingdom.com.

Савенко Вадим Иванович:
Чего то не хочет работать это пример http://forum.sources.ru/index.php?showtopic=299874 (неизвестные идентификаторы и всё, хоть тресни, в частности SafeArrayGetVartype), дайте Ваш этот код процедуры.

to Евгений/Genia007/

// Разработчики модуля ActiveX почему-то забыли импортировать функцию
// SafeArrayGetVartype, поэтому делаем это сами
function SafeArrayGetVartype(psa: PSafeArray; out vt: TVarType): HResult; stdcall;
external 'oleaut32.dll';

procedure TMainForm.Button1Click(Sender: TObject);
type
TVarDataArray = array[0..MaxInt div SizeOf(TVarData) - 1] of TVarData;
PVarDataArray = ^TVarDataArray;
var
PNumbers: PIntegerArray;
VNumbers: TVarType;
I, Bound: Integer;
Result: HResult;
begin
MsftDiscRecorder.Disconnect;
MsftDiscRecorder.InitializeDiscRecorder
(MsftDiscMaster.Item[RecordersComboBox.ItemIndex]);
MsftDiscFormat2Data.Recorder := MsftDiscRecorder.DefaultInterface;
MsftDiscFormat2Data.ClientName := 'IMAPI';
// Проверяем, что нижний индекс массива равен нулю
Result := SafeArrayGetLBound(MsftDiscFormat2Data.SupportedWriteSpeeds, 1, Bound);
if Failed(Result) then
Exit;
if Bound <> 0 then
begin
ShowMessage('нижний индекс массива не равен нулю');
Exit;
end;
Result := SafeArrayGetVartype(MsftDiscFormat2Data.SupportedWriteSpeeds, VNumbers);
if Failed(Result) then
Exit;
if VNumbers <> vt_variant then
Exit;
// Получаем верхнюю границу массива
Result := SafeArrayGetUBound(MsftDiscFormat2Data.SupportedWriteSpeeds, 1, Bound);
if Failed(Result) then
Exit;
// Получаем доступ к данным массива
Result := SafeArrayAccessData(MsftDiscFormat2Data.SupportedWriteSpeeds, PPointer(@PNumbers)^);
if Failed(Result) then
Exit;
for I := 0 to Bound do
Memo1.Lines.Add(IntToStr(PNumbers^[I]));
MsftDiscRecorder.Disconnect;
end;

to Евгений/Genia007/
Да, еще в uses нужно ActiveX добавить

Савенко Вадим Иванович:
в uses ActiveX я добавил сразу, а вот с SafeArrayGetVartype и была засада, и в нете не нашёл нормального разъяснение этого момента. Пока не пойму почему у меня выскакивает либо переполнение стека, либо ошибка ole.