Vo1T
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: var
f: TForm;
b: TButton;
procedure EventRaised(eventType: string; eventData: string);
begin
if eventType = 'dm_download_added' then
ShowMessage('Added ID = ' + eventData);
end;
procedure ButtonClick(Sender: TButton);
begin
ShowMessage(DoAction('GetDownloadIDsList', '2'));
f.ModalResult := mrOk;
end;
begin
f := TForm.Create(nil);
f.Caption := 'Test it!';
f.BorderStyle := bsDialog;
f.Position := poScreenCenter;
b := TButton.Create(f);
b.Name := 'Button1';
b.Parent := f;
b.SetBounds(10, 10, 75, 25);
b.Caption := 'Test';
b.OnClick := @ButtonClick;
f.ShowModal;
f.Free;
end. |
Сохраните данный код в файле script.txt в папке Plugins рядом с dmscript.dll
Данный пример при открытии DM покажет окошко с кнопочкой - при нажатии на которую покажутся ID всех закаченных файлов |
Всего записей: 312 | Зарегистр. 20-08-2008 | Отправлено: 15:09 03-12-2009 | Исправлено: Vo1T, 01:25 04-12-2009 |
|
