Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

gen - плагин WinAMP'a с формой [D7, WinXP]


V.exeR ©   (2006-06-10 15:07:00) 

Задача следующая: необходимо сделать gen-плагин к WinAMP'у, в котором есть форма, на которой периодически что-то пишется. Ну так вот. Что сделал я: создал форму, прописал ее в uses у dll-ки, и написал такой код (если кому-то интересно, http://vexer.ru/junk/gen_basic.rar- целиком эксперимент):

Function Init: Integer; cdecl;
Begin
 Application.Initialize;
 Application.CreateForm(TForm1, Form1);
 Application.Run;
 result:=0;
End;

Procedure Quit; cdecl;
Begin
 Form1.Close;
 Application.Terminate;
End;

Эксперимент показал что  при выключении WinAMP'а форма не уничтожается, и WinAMP не выгружается из памяти пока не закроешь форму вручную... Может кто-то уже сталкивался с подобным? Поиск по инету решений подобной проблематики результатов не дал, но если поделитесь хотя бы ссылкой, буду очень признателен.


V.exeR   (2006-06-10 16:06:00) [1]

Все, вопрос отпал :)
Ситуация решилась так:

Function Init: Integer; cdecl;
Begin
 try
   Form1:=TForm1.Create(nil);
   Form1.Show;
 except
   FreeAndNil(Form1);
 end;
 result := 0;
End;

Procedure Quit; cdecl;
Begin
 Form1.Close;
 FreeAndNil(Form1);
End;


Наверх

Титульная страница Поиск, карта сайта Написать письмо