Media Schältflächen wie?

[hacker]

Hallo!
Ich habe den neuen Windows Media Player 9 und finde in klasse.Mir ist aufgefallen das wenn man ihn minimiert, dass auf dr Taskleiste Schaltflächen erscheinen für Volumen usw. Meine Frage...wie kann man selber solche schaltflächen in Delphi machen?


Gruss Häcki :hi:

[hboy]

such mal ob du nen Handle auf die taskleistenschaltfläche kriegst

[fkerber]

Hi!

[OT]
Welche Version des MediaPlayers issen das genau?
Ich habe auch 9.00 aber ich habe diese Schaltflächen nicht.
Oder muss man die aktivieren?
[/OT]

Ciao fkerber

[Dagon]

@fkerber: Schau mal hier.

[fkerber]

HI!

Danke.


Ciao fkerber

[MrKnogge]

Rechtsklick auf die Taskleiste -> Symbolleisten -> WindowsMediaPlayer

Die Firewall "ZoneAlarm" kann diese auch...

[hacker]

Hi!

Wie kriege ich denn so ein Handle auf die Taskleistenschaltfläche??


Gruss Häcki :hi:

[moritz]

Mit FindWindow, getDC usw.
WinSpy hilft dir!

[hboy]

Zitat:

Zitat von hacker

Hi!

Wie kriege ich denn so ein Handle auf die Taskleistenschaltfläche??


Gruss Häcki :hi:

hehe hab dem gutt lösung (bin da au selber dran*ggg*)

Delphi-Quellcode:

type TBChildAttr = string[255];
const
  task_Button          : TBChildAttr = 'Button';
  task_TrayNotifyWnd   : TBChildAttr = 'TrayNotifyWnd';
  task_TrayClockWClass : TBChildAttr = 'TrayClockWClass';
  task_ToolbarWindow32 : TBChildAttr = 'ToolbarWindow32';
  task_ReBarWindow32   : TBChildAttr = 'ReBarWindow32';
  task_MSTaskSwWClass  : TBChildAttr = 'MSTaskSwWClass';
  task_SysTabControl32 : TBChildAttr = 'SysTabControl32';

type TEnumRec = record
  Clienthandle: HWND;
  DestHandle: HWND;
  TBChild:TBChildAttr;
end;
type PEnumRec = ^TEnumRec;

procedure AttatchToTaskBar(const ChildAttr:TBChildAttr;WindowHandle: HWND);
var
  taskbarhandle: HWND;
  EnumRecord: PEnumRec;

  function TaskBarEnumChildProc(const AhWindow : DWORD;const EnumRec: PEnumRec) : Boolean; stdcall;
  var
    buf: PAnsiChar;
  begin
    getmem(buf,256);
    ZeroMemory(buf,length(buf));
    GetClassName(ahwindow,buf,256);
    if buf = EnumRec^.TBChild then EnumRec^.DestHandle := AhWindow;
    freemem(buf,256);
    result := true;
  end;

begin
  getmem(EnumRecord,SizeOf(TEnumRec));
  EnumRecord.TBChild := ChildAttr;
  EnumRecord.Clienthandle := WindowHandle;
  EnumRecord.DestHandle :=0;
  taskbarhandle:= FindWindow('Shell_TrayWnd', nil);
  EnumChildWindows(taskbarhandle,@TaskBarEnumChildProc,Integer(EnumRecord));
  if EnumRecord.DestHandle <> 0 then SetParent(EnumRecord.Clienthandle,EnumRecord.DestHandle);
  freemem(EnumRecord,SizeOf(TEnumRec));
end;

[hboy]

Delphi-Quellcode:

  AttatchToTaskBar(task_MSTaskSwWClass ,form1.Handle);

und schon is die form drin!
form1.top :=0;