[LAZARUS] Не получается убрать приложение с панели задач.

[Alex Cones]

// SetWindowLong(wnd, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
//  ShowWindow(TWin32WidgetSet(WidgetSet).AppHandle, SW_HIDE);
//  ShowWindow(FRMMain.Handle, SW_HIDE);
//  FRMMain.ShowInTaskBar := stNever;
  h:=findwindow('Window','Squary');
  showwindow(h, sw_hide);

Ничего не работает.

UPD Даже способ от GunSmoker не проходит:

Procedure TFRMMain.CreateWnd;
 Var
  Taskbar: ITaskbarList;
 begin
  inherited;

  Taskbar := CreateComObject(CLSID_TaskbarList) as ITaskbarList;
  Taskbar.HrInit;
  Taskbar.DeleteTab(Handle);
 end;

[GunSmoker]

Вы уверены, что на панели задач висит кнопка именно от этого окна, а не какая-то заглушка-переходник?

[Alex Cones]

Я уже ни в чем не уверен.

[GunSmoker]

Во-во. Вот это (0,0)-(0,0) у первого окна и наводит на мысль о заглушке.

Я уж не в курсе, как там у Лазарус.

Варианты:
- попробовать с Application.Handle.
- поискать.
- покопаться в свойствах формы.
- покопаться в документации.
- покопаться в исходниках формы.

[Alex Cones]

Application.Handle = TWin32WidgetSet(WidgetSet).AppHandl e
Уже пробовал в первом посте.

Искал, нарыл это http://www.freepascal.ru/forum/viewtopic.php?f=5&t=4263 - не помогло.
В свойствах формы даже указывал showInTaskbar = FALSE, но из 4 процессов только 2 оказались скрытыми (как и при TRUE)


А может идти снизу вверх? Если я знаю хендл, например, формы, то я же могу узнать хендл "заглушки"? Вопрос отменяется, т.к. вывел на экран найденный по findwindow('Window','Squary'); хендл - он равен хендлу заглушки.

[Alex Cones]

Так, ладно, попробуем пойти другим путем - начнем сначала.

Исходные позиции:
1) Форма имеет стиль bsNone
2) Форма получает

With FRMMain Do
    SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_SHOWWINDOW);

По (почти) каждому OnPaint.
3) Форма имеет такие стили:

SetWindowLong(FRMMain.Handle, GWL_EXSTYLE,
   GetWindowLong(FRMMain.Handle, GWL_EXSTYLE) or WS_EX_LAYERED);
  SetLayeredWindowAttributes(FRMMain.Handle, $FF00FF, 0, LWA_COLORKEY);

- Чтобы сделать $FF00FF прозрачным.

НО все это кажись не имеет значения, т.к. после комментирования этих свойств ничего не меняется.

[Demure Monkey]

Не совсем понял что вам надо, но может это поможет

ShowWindow(TWin32WidgetSet(WidgetSet).AppHandle, SW_HIDE);

и еще надо подключить в uses

Win32Int, InterfaceBase, Windows

[mutabor]

Оффтоп. Может стоит писать на чистом WinAPI, чем отладку фрипаскалю делать постоянно? Это ведь, как я понял, творческий проект, в свободное время, вопрос со сроками не стоит, это я к тому, что перейти на апи может время занять, ну и что, зато полезно по-любому, если планируешь и дальше под винду писать. Конец оффтопа

[Alex Cones]

Demure Monkey, первый пост внимательно прочтите.

mutabor, просмотрел проект, вроде бы проблем портирования возникнуть не должно... Ну-с... Приступим.

Спасибо.

[Demure Monkey]

Извините, не заметил
Странно... у меня сработало