Создать окно на рабочем столе

[AidarBik]

...
У меня такое окно

PopupWindow:=CreateWindowEx(WS_EX_APPWINDOW, 'DesktopText', 'Desktop Text', WS_OVERLAPPED or WS_SYSMENU, WorkSpace.Right - 200, WorkSpace.Bottom - 120, 200, 120, MainWindow, 0, HInstance, nil);
SetWindowLong(PopupWindow, GWL_EXSTYLE, GetWindowLong(PopupWindow, GWL_EXSTYLE) or (not WS_EX_APPWINDOW));
SetWindowPos(PopupWindow, HWND_BOTTOM, WorkSpace.Left, WorkSpace.Top, 200, 120, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

Но это окно не главное. Главное окно (MainWindow) может отображаться на панели задач, а PopupWindow нет. Но у меня они отображаются оба. Что делать?

[BOBAH13]

Что и после этого кода они отображаются оба ?

[AidarBik]

Да. Оба.

[BOBAH13]

Извините сразу не заметил, если вы хотите убрать с панели то зачем создаете с иконкой
CreateWindowEx(WS_EX_APPWINDOW, .... поставьте там 0 да и все

Скажу как надо все делать... допустим нашли вы строку коду реализующую какое то действие, применили ее к своей программе, но уж потрудитесь понять ее полностью !! Воизбежания подобных проблем

[AidarBik]

Оно все равно осталось.

[BOBAH13]

Попробуйте сделать в CreateWindowEx вместо MainWindow поставтье 0 ) тобиш никого... виндовс должен выкинуть окно как desktop child's

[AidarBik]

Не получается. И 0 ставил, и GetDesktopWidow.

[Kostia]

program Project1;
uses
  Windows,
  Messages;

var
    wc   : TWndClassEx;
    pWnd : HWND;
    pMsg : TMsg;

function WindowProc(wnd: HWND; Msg: Integer; wParam: wParam; lParam: lParam): Lresult; stdcall;
begin
    Result:=0;
    case msg of
     WM_CREATE:
      begin
      end;
     WM_DESTROY:
      begin
      end;
     WM_PAINT:
      begin
      end;
    else
     Result:=DefWindowProc(wnd,msg,wparam,lparam);
    end;
end;

begin
     wc.cbSize       := sizeof(wc);
     wc.lpfnWndProc  := @WindowProc;
     wc.cbClsExtra   := 0;
     wc.cbWndExtra   := 0;
     wc.hInstance    := HInstance;
     wc.hCursor      := LoadCursor(0, IDC_ARROW);
     wc.hbrBackground:= COLOR_BTNFACE+1;
     wc.lpszMenuName := nil;
     wc.lpszClassName:= 'Prog';      
     RegisterClassEx(wc);
     pWnd := CreateWindowEx(WS_EX_APPWINDOW, 'Prog', 'Prog',
       WS_SYSMENU , getsystemmetrics(0)div 2-90, getsystemmetrics(1)div 2-90, 250, 254, 0, 0,
       Hinstance, nil);
     ShowWindow(pWnd,SW_SHOW);
     SetWindowLong(pwnd, GWL_EXSTYLE,
     GetWindowLong(pwnd, GWL_EXSTYLE) or (not WS_EX_APPWINDOW));
     SetWindowPos(pwnd, HWND_BOTTOM, getsystemmetrics(0)div 2-90, getsystemmetrics(1)div 2-90, 250, 254, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
     while true do
     begin
      if peekmessage(pmsg,0,0,0,pm_remove)=true then
      begin
       TranslateMessage(pMsg);
       DispatchMessage(pMsg);
      end;
     end;
end.

[AidarBik]

Получилось, если ShowWindow вызывать после

SetWindowLong(pwnd, GWL_EXSTYLE,
     GetWindowLong(pwnd, GWL_EXSTYLE) or (not WS_EX_APPWINDOW));
     SetWindowPos(pwnd, HWND_BOTTOM, getsystemmetrics(0)div 2-90, getsystemmetrics(1)div 2-90, 250, 254, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

Но у формы все равно остаются границы. Их можно как-то убрать?

[Kostia]

pWnd := CreateWindowEx(WS_CHILD, 'Prog', 'Prog',
WS_SYSMENU , getsystemmetrics(0)div 2-90, getsystemmetrics(1)div 2-90, 250, 254, 0, 0,
Hinstance, nil);