Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.10.2010, 14:07   #1
Mihanches
Пользователь
 
Регистрация: 14.09.2010
Сообщений: 89
По умолчанию Не работает команда на WinAPI

Код:
mciSendString('Set cdaudio door open wait', nil, 0, handle);
Из за этой команда моя прога на winAPi не компиллируеться. Что делать что бы не удаляя ее скомпиллировать прогу?
Mihanches вне форума Ответить с цитированием
Старый 06.10.2010, 14:11   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

И ошибку конечно же пишет буквами-невидимками по прозрачному квазиконтенту...
Да, это распространенный парадокс программистов.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 06.10.2010, 14:16   #3
Mihanches
Пользователь
 
Регистрация: 14.09.2010
Сообщений: 89
По умолчанию

Undeclared identifer: 'handle'

Последний раз редактировалось Mihanches; 06.10.2010 в 14:19.
Mihanches вне форума Ответить с цитированием
Старый 06.10.2010, 15:06   #4
DomiNick
Студент, не
Старожил
 
Аватар для DomiNick
 
Регистрация: 29.01.2009
Сообщений: 2,067
По умолчанию

У вас нет такой переменной - вот оно и ругается... Ну поставьте вместо него ноль...
А у меня не работает оно...
I am the First of Cyber Evolution...
I am the First to Program your Future...

Последний раз редактировалось DomiNick; 06.10.2010 в 17:03.
DomiNick вне форума Ответить с цитированием
Старый 06.10.2010, 15:06   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Ну так опиши эту переменную с типом, который требует параметр функции, куда ты переменную подставляешь )
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 06.10.2010, 15:13   #6
Mihanches
Пользователь
 
Регистрация: 14.09.2010
Сообщений: 89
По умолчанию

Хм. А как это сделать?
Mihanches вне форума Ответить с цитированием
Старый 06.10.2010, 16:29   #7
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

если вы не знаете как обьявить переменную то учите азы.
а вообще это скорее всего был хендл формы.(Self.Handle)
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 06.10.2010, 16:29   #8
ZvEr_HaCkEr
VisualC++/DirectX
Форумчанин
 
Аватар для ZvEr_HaCkEr
 
Регистрация: 16.07.2010
Сообщений: 831
По умолчанию

Подключи модуль Mmsystem.
ZvEr_HaCkEr вне форума Ответить с цитированием
Старый 06.10.2010, 16:33   #9
Mihanches
Пользователь
 
Регистрация: 14.09.2010
Сообщений: 89
По умолчанию

Цитата:
Сообщение от ZvEr_HaCkEr Посмотреть сообщение
Подключи модуль Mmsystem.
Подключил сразу же. Не в нем дело. Не работает се равно.

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

Последний раз редактировалось Stilet; 06.10.2010 в 17:08.
Mihanches вне форума Ответить с цитированием
Старый 06.10.2010, 16:43   #10
ZvEr_HaCkEr
VisualC++/DirectX
Форумчанин
 
Аватар для ZvEr_HaCkEr
 
Регистрация: 16.07.2010
Сообщений: 831
По умолчанию

Код:
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.
ну вот самый простой вариант.Все работает.
ZvEr_HaCkEr вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Команда UNION ALL Santosh Microsoft Office Access 2 19.08.2010 19:54
Почему не работает команда? docbrain Общие вопросы Delphi 5 10.05.2010 07:18
НЕ работает WinAPI Golovastik Общие вопросы C/C++ 27 02.10.2009 13:54
Команда AutoLispa ИВэТэшка Помощь студентам 7 23.04.2009 20:54