Помогите пожалуйста!

← →
Bob5 (2001-12-04 07:52) [0]

Имеются DLL которые обрабатывают документы(каждая свой документ).
как обнаружить и подключить DLL с новыми документами в каталоге откуда запускается прога. DLL Юзеру ложаться без уведомления а прога должна их подцепить при запуске проги

← →
Ura (2001-12-04 11:39) [1]

Самый простой совет -
Это сделать во всех DLL - функцию которая говорит проге какие документы она обрабатывает, или записывает это в реестре. А прога будет либо смотреть в реестр - для каждого документа, либо держать в себе список документов и DLL которые их обрабатывают.
Следует после запуска опросить все DLL - на придмет данной функции.

← →
bob5 (2001-12-04 12:19) [2]

to Ura
Спасио за ответ!
Все что вы сказали про функцию сделано
проблема как раз в Этом и есть:
>Следует после запуска опросить все DLL - на предмет данной функции

Вот это мне и не доступно, мне приходилось работать только с базами
Если можно кусочек кода или совет как это сделать можно мылом

Заранее спасибо!

← →
bob5 (2001-12-04 12:37) [3]

Интересует только получение имен DLL в заданном каталоге и в каталоге запуска проги остальное понятно.

Заранее спасибо!

← →
Владислав © (2001-12-04 12:56) [4]

Поищи на форуме "поиск файлов" и тому подобное.

← →
GrEG © (2001-12-04 16:08) [5]

procedure GetFiles(sl:TstringList;DirName,FileMask:string); var sr:TSearchRec; i:integer; begin if sl = nil then exit; sl.Clear; i:=FindFirst(DirName+"\"+FileMask,faAnyFile,sr); try while i = 0 do begin sl.Add(DirName+"\"+sr.Name); i:=FindNext(sr); end; finally FindClose(sr); end; end;
Синтаксис не проверял, но, в основном, код такой.
Естественно, sl должно быть создано до вызова процедуры.
Вызови процедуру как GetFiles(sl,GetCurrentDir,"*.dll") и в sl получишь список файлов.

← →
Vovchik (2001-12-04 17:42) [6]

Чтобы определить есть такая функция или нет надо вызвать
type
MyProc = function (Parametri);

var
MyF: MyProc;
begin
Handle := LoadLibrary(NameOfDll);
if GetProcName(Handle, ProcName) <> nil then MyF := GetProcName(Handle, ProcName);
MyF(Parametri);
end;

← →
bob5 (2001-12-05 05:09) [7]

Спасибо большое всем ответившим!

Последний вопрос: как определить путь откуда запускается прога?

Заранее спасибо!

Из Application.ExeName извлекай путь.

← →
bob5 (2001-12-05 09:23) [9]

Спасибо всем большое! Все сделал как хотелось!

Помогите пожалуйста! Найти похожие ветки