Раздел "Каком к верху", посвящён вашим вопросам "Как?". Если ты хочешь задать свой вопрос, то пиши мне сюда Почтальон. Пожалуйста, конкретизируй свои вопросы. Если твои вопросы будут маленькими и конкретными, то они попадут сюда, и ты их увидишь очень скоро. Иначе мне придётся писать отдельную статью, а такого у меня очень много и не известно, когда я напишу тебе ответ.
Как программно эмулировать нажатие на кнопку?
Для этого нужно послать сообщение Windows. Это можно сделать так:
ТButton1.Perform(WM_LBUTTONDOWN, 0, 0);
Эта строка посылает сообщение, что нажата левая кнопка мышки у ТButton1. Для правой кнопки мышки, первый параметр изменится на WM_RBUTTONDOWN. Если захочешь послать событие о поднятии кнопки, то первый параметр меняется на WM_LBUTTONUP или WM_RBUTTONUP для левой и правой кнопки соответственно.
Как проигрывать AVI, MOV, MPEG файлы?
Если у тебя установлены соответствующие кодеки в системе (AVI и MOV ставятся почти всегда), то нет проблем. Для этого нужно использовать компонент ТMediaPlayer. Он очень прост и никаких проблем с ним не возникнет. Вот тебе небольшой пример, как всё выполняется программно. В примере используется два компонента МediaPlayer1 nbgf TМediaPlayer и Panel1 типа TPanel:
MediaPlayer1.Filename := 'C:\filename.avi';
MediaPlayer1.Open;
MediaPlayer1.Display := Panel1;
MediaPlayer1.DisplayRect := Panel1.ClientRect;
MediaPlayer1.Play;
Как выводить диалоговые сообщения?
Самый простой пример: ShowMessage('Сообщение');
Более извращённый пример окна с одной кнопкой "ОК": Application.MessageBox('Сообщение', 'Заголовок', MB_OK+MB_ICONEXCLAMATION);
Ещё более извращённый пример окна с двумя кнопками "ОК" и "Cancel":
if Application.MessageBox('Форматировать?', 'Внимание',
MB_OKCANCEL+MB_ICONEXCLAMATION)<>ID_OK then exit
Else format c:).
Как узнать версию Windows с которой я сейчас работаю?
Для этого есть API функция GetVersionEx. Вот пример её использования:
var
os : TOSVERSIONINFO;
begin
GetVersionEx(os);
if os.dwPlatformId = VER_PLATFORM_WIN32s then
ShowMessage('Это Win32 для Windows 3.1');
if os.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS then
ShowMessage('Это Win9x');
if os.dwPlatformId = VER_PLATFORM_WIN32_NT then
ShowMessage('Это NT');
end;
Как заставить Database Desktop понимать русские буквы?
Если у тебя старая версия (до 5-й), то в файле c:\windows\pdoxwin.ini нужно добавить секцию
[Properties]
SystemFont=Arial Cyr
Новые версии (после 5-1 и конкретно 7-я) используют для хранения своих параметров системный реестр. Поэтому тебе надо изменить ключ:
