Система проговаривания времени

← →
Smok_er (2002-07-09 09:47) [0]

Уважаемые мастера!
Возможно кто-то из вас сталкивался с программой Speaking Clock Deluxe ( http://www.lux-aeterna.com), которая умеет проговаривать текущее время. Принцип работы основан на подключении dll. Для каждого языка своя dll, которые записывают по всему миру. Сейчас в коллекции около 25-30 языков.
Излазил весь интернет, но никак не могу найти доки по работе с данными dll, а писать свои просто бессмысленно.
МОжет кто слышал, видел, сталкивался с сабжем - помогите пожалуйста. Интересует все.

← →
handra © (2002-07-09 10:58) [1]

скачал несколько DLL по ссылке, в течение 10-ти минут я выяснил, что все они экспортируют функцию:
procedure Speak; stdcall;.

т.е. определяем тип
TSpeakProc = procedure ; stdcall;
кидаем на форму две кнопки и TOpenDialog, обработчики:

procedure TForm1.Button1Click(Sender: TObject); begin OpenDialog1.Execute; end; procedure TForm1.Button2Click(Sender: TObject); var hLib: THandle; SpeakProc: TSpeakProc; begin hLib := LoadLibrary(PChar(OpenDialog1.FileName)); if hLib=0 then ShowMessage("Can""t loadlibrary!") else begin SpeakProc := GetProcAddress(hLib,"Speak"); if @SpeakProc=nil then ShowMessage("Can""t find procedure!") else try SpeakProc; finally end; FreeLibrary(hLib); end; end;

Вот собственно и все, функция в DLL проговаривает текущее время.

← →
Smok_er (2002-07-09 12:25) [2]

Большое спасибо!
Работает!

Хотелось бы узнать, как расковыривать dll и, относительно вопроса, как узнать, к какому языку относится файл, из самой dll?

Система проговаривания времени Найти похожие ветки