![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
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;