Registriert seit: 31. Aug 2005
Ort: Dortmund, Germany
388 Beiträge
Delphi 2006 Enterprise
|
Re: *NEU*Taskbar Arrange - Buttons der Taskbar beliebig anor
4. Aug 2008, 16:24
Die Taskbar hole ich so:
Delphi-Quellcode:
function getTaskbarHWND: HWND;
var
ShellTrayWnd: HWnd;
ReBarWindow32: HWnd;
MSTaskSwWClass: HWnd;
begin
Result := 0;
ShellTrayWnd := FindWindow('Shell_TrayWnd', nil);
if ShellTrayWnd <> 0 then
begin
ReBarWindow32 := FindWindowEx(ShellTrayWnd, 0, 'ReBarWindow32', nil);
if ReBarWindow32 <> 0 then
begin
MSTaskSwWClass := FindWindowEx(ReBarWindow32, 0, 'MSTaskSwWClass', nil);
if MSTaskSwWClass <> 0 then
Result := FindWindowEx(MSTaskSwWClass, 0, 'ToolbarWindow32', nil);
end;
end;
end;
Liebe Grüße,
Chris
|
|
Zitat
|