Окно поверх панели задач

← →
NorthMan © (2004-06-17 15:29) [0]

Можно ли как-нибудь поместить окно поверх панели задач?
Делаю SetWindowPos(Application.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOACTIVATE); - не помогает. Пытаюсь спрятать taskbar
ShowWindow(FindWindow("Shell_TrayWnd",nil), SW_HIDE); - тоже не помогло. Taskbar пропал, а мое окно все равно обрезано на высоту taskbar"a.

← →
Игорь Шевченко © (2004-06-17 16:32) [1]

Сними у Taskbar флажок "Всегда сверху"

← →
NorthMan © (2004-06-17 16:59) [2]

А на другой машине кто флажок снимать будет?

← →
Kair © (2004-06-17 17:16) [3]

Думаю, этот параметр должен быть записан в реестре...

← →
NorthMan © (2004-06-17 17:26) [4]

Да не хотелось бы в реестре гадить, а то при нестандартном завершении вернуть все на свои места не получиться...

← →
DeadMeat © (2004-06-17 17:43) [5]

А ты попробуй вызывать её в таймере (ну или в потоке)...

---
...Death Is Only The Begining...

Как нибудь можно. Определённые проги такое делают, сам видел.

В том-то и дело. Ведь сама-то она использует эти функции.

← →
grom (2004-06-18 10:36) [8]

var
Form1: TForm1;
Cor : TRect; // TaskBar
hButton : THandle; //pusk
HTaskBar :THandle; //Taskbar
-------------------------------------
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Interval:=100;
SetWindowPos(Form1.Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE+SWP_NOSIZE);
hTaskBar := FindWindow("Shell_TrayWnd",nil);
hButton:= GetWindow(hTaskBar, GW_CHILD);
GetWindowRect(HTaskBar,Cor);
Form1.Top:=Cor.Top-10;
Form1.Left:=Cor.Left+10;
end;
может это поможет

Окно поверх панели задач Найти похожие ветки