Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.14;
Скачать: CL | DM;

Вниз

Явная загрузка dll   Найти похожие ветки 

 
GrishaK   (2001-12-26 12:58) [0]

Имеется следующая процедура.

procedure TMForm.NormsExecute(Sender: TObject);
var LibHandle:Thandle;
ShowListAnaliz:TShowListOfOutPut;
begin
LibHandle:=LoadLibrary("sicef.dll");
try
if LibHandle=0 then
raise EDllLoadErr.Create("Ошибка при загрузке sicef.dll");
@ShowListAnaliz:=GetProcAddress(LibHandle,"ShowListOfOutPut");
if not (@ShowListAnaliz = nil) then
ShowListAnaliz(Application.Handle)
else RaiseLastWin32Error;
finally
FreeLibrary(LibHandle);
end;
end;

Вопрос. Почему после выгрузки dll становится невидимым вызывающее приложение?


 
gek   (2001-12-26 13:06) [1]

Сделай так
if Assigned(ShowListAnaliz) then
ShowListAnaliz(nil)

и зачем передавать Application.Handle


 
GrishaK   (2001-12-26 13:19) [2]

Я не упомянул, что dll содержит модальную форму. Для того чтобы избежать появления самостоятельного объекта модальной формы я и использую Application.Handle. Кстати, при неявной загрузке все работает.


 
gek   (2001-12-26 13:23) [3]

Ну содержит, ну и что, зачем handle передавать.
Сделай проще ShowListAnaliz;
Ничего страшного не будет, вот увидишь.


 
GrishaK   (2001-12-26 13:29) [4]

Спасибо за помощь, поробую восполбзоваться твоим советом.



Страницы: 1 вся ветка

Текущий архив: 2002.01.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
3-42357
Cossys
2001-12-11 18:02
2002.01.14
Хитрый фильтр - никак не работает


1-42471
dimonf
2001-12-24 17:15
2002.01.14
Как быстро выводить (прорисовывать) графическую информацию на Canvas?


3-42383
Serega__2
2001-12-13 12:09
2002.01.14
Подскажите плз каким образом перенести структуру и данные базы под MSSQL7 с одной машины на другую?


4-42591
MIFI
2001-11-09 17:31
2002.01.14
Народ помогите разобраться


1-42443
Пл.
2001-12-24 17:05
2002.01.14
Цикл