Вопрос: Как узнать есть ли в заданном CD-ROM'е Audio CD? Ответ:
Можно использовать функцию
Windows API GetDriveType() чтобы определить является ли дисковод CD-ROM’мом.
И функцию API GetVolumeInformation() чтобы проверить VolumeName на равенство
‘Audio CD’. Прочитать остальную часть записи »
Вопрос: Как программно определить, что приложение работает под Windows NT? Ответ:см. пример Прочитать остальную часть записи »
Вопрос: Как использовать анимированный курсор? Ответ:
Во первых необходимо получит
handle курсора, а затем определить его в массиве курсоров компонента TScreen.
Индексы предопределенных курсоров системы отрицательны, пользователь может определить
курсор, индекс которого положителен. Прочитать остальную часть записи »
Вопрос: Как определить номер текущей строки в TMemo? Ответ:
Чтобы определить номер
текущей строки любого объекта управления edit – пошлите ей сообщение EM_LINEFROMCHAR
Пример:
procedure TForm1.Button1Click(Sender: TObject);
var
LineNumber : integer;
begin
LineNumber := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, word(-1), 0);
ShowMessage(IntToStr(LineNumber));
end;
Вопрос: Как удалить каталог вместе со всеми содержащимися в нем файлами? Ответ:
В примере стираются все
файлы в каталоге и сам каталог. Чтобы удалить файл, помечанные только для чтения
(read only) и занятые другими программами в момент удаления – напишите дополнительную
процедуру. Прочитать остальную часть записи »