Панель быстрого доступа как в WMP 11

[Alex Cones]

Когда WMP (Windows Media Player) сворачивается, его можно установить как панель быстрого доступа.
Собственно, в том и вопрос, как это сделать (на D7)?

[JTG]

http://programmersforum.ru/showthread.php?t=58272

[Alex Cones]

Код от Stilet:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.FormCreate(Sender: TObject);
 var h:HWND;
begin
 h:=FindWindow('Shell_TrayWnd','');
 h:=FindWindowEx(h,0,'ReBarWindow32','');
 h:=FindWindowEx(h,0,'ToolbarWindow32','Quick Launch');
 windows.SetParent(Handle,h);
end;

end.

Реакция Dr.Web: D:\PROGRAMMING\DELPHI\Delphi\Projec ts\Project37.exe - инфицирован VirusConstructor.Helpxsite

[Stilet]

Реакция Dr.Web

Дожили... В бега что ли податься?...
Все идет к тому что скоро антивирусы будут палить все что не написано на .NET

[Пепел Феникса]

а может потому что тему не всю прочли?
там ссылка на мсдн есть
нужно интерфейс реализовывать и регится в системе.