2010-03-22 17:21:08 -04:00
|
|
|
program new;
|
|
|
|
|
|
|
|
procedure init;
|
|
|
|
begin;
|
|
|
|
Writeln('init your extension here');
|
|
|
|
end;
|
|
|
|
|
|
|
|
procedure free;
|
|
|
|
begin
|
|
|
|
Writeln('Free your extension here');
|
|
|
|
end;
|
|
|
|
|
|
|
|
procedure Attach;
|
|
|
|
begin;
|
2010-03-31 18:22:46 -04:00
|
|
|
Settings.SetKeyValue('TestSetting','1337');
|
2010-03-22 17:21:08 -04:00
|
|
|
Writeln('Your extension has been enabled, do stuff here');
|
|
|
|
end;
|
|
|
|
|
|
|
|
Procedure Detach;
|
|
|
|
begin
|
|
|
|
Writeln('Your extension has ben disabled, do stuff here');
|
|
|
|
end;
|
|
|
|
|
|
|
|
//Called to retrieve the name of your extension
|
|
|
|
function GetName : string;
|
|
|
|
begin;
|
|
|
|
result := 'Test Extension';
|
|
|
|
end;
|
|
|
|
|
|
|
|
//Called to retrieve the version of your extension
|
|
|
|
function GetVersion : string;
|
|
|
|
begin;
|
|
|
|
result := '1.1b';
|
|
|
|
end;
|
|
|
|
begin
|
|
|
|
end.
|