Плагин к Winamp у

← →
Nolf (2004-07-12 07:33) [0]

Что нужно приписать к DLLке, чтобы её вижел винамп, в разделе GenPlugins. На сайте винампы лежат SDK к DLLкам на С++. Разобраться не смог :-(

← →
zx © (2004-07-12 09:50) [1]

http://www.izone.kiev.ua/progr/delphi/226.htm

← →
Shiza (2004-07-12 11:05) [2]

Вот тебе рабочий код.
И ещё. Зайди на сайт журнала Мой компьютер и почитай мою статьи о том как писать плагины визуализации для винамп. А если тебе интересно, то я могу рассказать как писать плагины ввода/вывода, DSP-плагины.
С уважением, Алексей Фоминов.

library gen_mf;

{WinAmp General Purpose Plugin Demo Source Code for Delphi 5.0
by Ivan R. Spiridonov E-Mail: ivanspirit@yahoo.com .
Feel free to use it anywhere at any time in any kind but please let me know !

History:
I"ve made it because of that Justin Frankel "NullSoft Inc." had said that Delphi is
an alternative language . Or with other words you might be able or might not be to do
any plugin for WinAmp in Delphi.

To Do :
Add a thread to do some job with WinAmp .

Enjoy...!
}

uses
ShareMem,
Forms,
Unit1 in "Unit1.pas" {Form1};

{$R *.RES}

type TwinampGeneralPurposePlugin = Record
version : integer ;
description : Pchar ;
InitPinteger: function : integer; stdcall;
Pconfig : procedure ;stdcall;
Pquit : procedure ;stdcall;
hwndParent : Integer;
hDllInstance: LongWord;
end;

type PTwinampGeneralPurposePlugin = ^TwinampGeneralPurposePlugin;

var
plugin : TwinampGeneralPurposePlugin;

const
icversion : integer = $10; //If you change it it woun"t work but I don"t know why :-( !
ichwndParent : integer = 0;
lwchDllInstance : LongWord = 0;
pccdescription : PChar = "ivanspirit WinAmp General Purpose Plugin Demo"+#0;

function winampGetGeneralPurposePlugin() : PTwinampGeneralPurposePlugin; stdcall; //Don"t change function name and its result type.
begin
Result:=@plugin;
end;

function Init : Integer; stdcall; //Do some inits here and return with result of them .
begin
result:=0; // It means that everything is fine.
end;

procedure config; stdcall; //WinAmp will execute it when doubleclick occurs on the Plugin description .
begin
Application.CreateForm(TForm1, Form1); // Let us organize a window for user interface .
Form1.ShowModal; // Keep it shown until user stops interact with .
end;

procedure quit; stdcall; //Do some exit routines save data and et cetera.
begin
end;

exports winampGetGeneralPurposePlugin , init , config , quit; // Declare exports here .

begin
plugin.version := icversion;
plugin.description := pccdescription;
plugin.InitPinteger := @Init;
plugin.Pconfig := @config;
plugin.Pquit := @quit;
end.

← →
Shiza (2004-07-12 11:05) [3]

← →
diaz (2004-07-12 16:36) [4]

Исходники плугина к Winamp
www.en.net.ua/diaz

Плагин к Winamp у Найти похожие ветки