Программирование на Delphi и не только

Пример: WinampUser(1, 105); – возвращает длину текущей композиции в секундах.

Итак, управлять Winamp’ом мы научились, осталось только воплотить наши навыки в небольшую программу.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Registry,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
  Form1: TForm1;
  reg: TRegistry;
  WinampHWND: HWnd;
implementation

{$R *.DFM}

function WinampUser(data: Integer; id: Integer):integer;
begin
  WinampHWND := findwindow('Winamp v1.x', nil);
  if (Wina  mpHWND <> 0) then
    result := SendMessage(WinampHWND, WM_USER, data,id)
  else result := -1;
end;
procedure WinampCommand(Command: Integer);
begin
  WinampHWND := findwindow('Winamp v1.x',nil);
  if (WinampHWND<>0) then
    SendMessage(WinampHWND, messages.WM_command, Command, 0);
end;
//Запуск Winamp’а
procedure StartWinamp;
var
  WinampExe: String;
begin
  reg := TRegistry.create;
  reg.RootKey := Windows.HKEY_LOCAL_MACHINE;
  reg.OpenKey('Software\CLASSES\Winamp.File\shell\open\command', False);
  WinampExe := reg.ReadString('');
  reg.Free;
  if (WinampExe<>'') then
  begin
    WinampExe := copy(WinampExe, 2, length(WinampExe)-7);
    WinExec(pchar(WinampExe), SW_SHOWNORMAL);
  end;
end;
procedure Play;
begin

Страница: 1 2 3 4