Не работает команда на WinAPI

[Mihanches]

mciSendString('Set cdaudio door open wait', nil, 0, handle);

Из за этой команда моя прога на winAPi не компиллируеться. Что делать что бы не удаляя ее скомпиллировать прогу?

[Stilet]

И ошибку конечно же пишет буквами-невидимками по прозрачному квазиконтенту...
Да, это распространенный парадокс программистов.

[Mihanches]

Undeclared identifer: 'handle'

[DomiNick]

У вас нет такой переменной - вот оно и ругается... Ну поставьте вместо него ноль...
А у меня не работает оно...

[Stilet]

Ну так опиши эту переменную с типом, который требует параметр функции, куда ты переменную подставляешь )

[Mihanches]

Хм. А как это сделать?

[Пепел Феникса]

если вы не знаете как обьявить переменную то учите азы.
а вообще это скорее всего был хендл формы.(Self.Handle)

[ZvEr_HaCkEr]

Подключи модуль Mmsystem.

[Mihanches]

Сообщение от ZvEr_HaCkEr

Подключи модуль Mmsystem.

Подключил сразу же. Не в нем дело. Не работает се равно.

Но вот вы представьте (а лучше даже сделайте на winapi такую прогу, которая просто открывает дисковод), и скажите мне , как бы вы решали эту проблему?

[ZvEr_HaCkEr]

program Project4;

uses
  Forms,mmsystem,
  Unit4 in 'Unit4.pas' {Form4};

{$R *.res}
    var
    h:thandle;
begin
  Application.Initialize;

  Application.MainFormOnTaskbar := True;
  Application.Run;
   mcisendstring('set cdaudio door open wait', nil, 0, h);
end.

ну вот самый простой вариант.Все работает.