Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];




Вниз

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


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]

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

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

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



Владислав   (2001-12-05 07:21) [8]

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



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

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




Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.024 c
1-32497           APTEMKA               2002-02-25 04:40  2002.03.11  
Как передвинуть и кликнуть мышкой на рабочем столе


1-32486           greenrul              2002-02-23 20:24  2002.03.11  
Перехват нажатий клавиш


14-32542          kaif                  2002-01-24 03:59  2002.03.11  
SHIFT+DELETE мои апплодисменты!!


14-32541          Феликс                2002-01-25 19:07  2002.03.11  
Простенький вопрос по Перлу.


7-32599           datch                 2001-11-28 13:30  2002.03.11  
Контроль присутствия мыши