startleiste überdecken

[markus lemcke]

hi,

ich habe ein problem:<br>
wenn die startleiste von windows fixiert ist, überdeckt mein <br>bildschirmschoner die startleiste nicht!<br>
weiß jemand wie ich das hinbekomme, dass er sie überdeckt?<br>
formstyle stayontop bringt nichts!<br>

gruß

markus

[markus lemcke]

ich habe es:

<pre>
procedure TForm1.FormCreate(Sender: TObject);
var
tray : HWnd;
aRect : TRect;
begin
aRect.Left := 0;
aRect.Top := 0;
aRect.Right := Screen.Width;
aRect.Bottom := Screen.Height;
SystemParametersInfo(SPI_SETWORKAREA, 0, @aRect, 0);
</pre>
gruß

marku

[markus lemcke]

hi ,

wie kann ich nach beendigung des bildschirmoners den workarea so setzen, dass er wieder nur bis zur taskleiste geht bzw. ich muss ja abfragen ob die taskleiste immer im vordergrund ist und nur dann, muss ich zurück setzen!
wie geht das?

gruß

marku

[Jens Schumann]

Hallo Markus,<br>
mit diesen beiden proceduren sollte es etwas einfacher gehen:<br>
<pre>
<font face="Verdana" size="1" color="#000000">procedure hideTaskbar;
var wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
StrPCopy(@wndClass[0], 'Shell_TrayWnd');
wndHandle := FindWindow(@wndClass[0], nil);
ShowWindow(wndHandle, SW_HIDE);
end;

procedure showTaskbar;
var wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
StrPCopy(@wndClass[0], 'Shell_TrayWnd');
wndHandle := FindWindow(@wndClass[0], nil);
ShowWindow(wndHandle, SW_RESTORE);
end;</font>
</pre&gt

[markus lemcke]

hi jens,

mein bildschirmschoner ist zwar schon online aber ich teste es trotzdem mal! danke!!

gruß

marku