Над Desktop'ом но под всеми остальными окнами

[Crivel]

Как настроить форму так, чтобы она была над Desktop'ом но под всеми остальными окнами?

[DomiNick]

Может что-то вроде такого?)

Form1.ParentWindow:=GetDesktopWindow;

[Crivel]

Большое спасибо за ответ! я попробовал всё работает, но когда я поставил кнопку на форму, то она как будто не нажимается(

[Crivel]

Ау! неужели не кто не знает как это решить?

Я уже весь инет обыскал!!(( я всё перепробовал! неужели нету решения?? мне всего лишь надо чтобы окно было на заднем плане! Пожалуйста подскажите!

[MalCer]

Может тогда так:

SetWindowPos(Handle, HWND_BOTTOM,0, 0, 0, 0,SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE or SWP_NOREDRAW);

[Crivel]

MalCer, огромное спасибо за помощь! я этот код вставил в таймер и поставил интервал у таймера 1.
Очень вам благодарен! Спасибо вам большое!

[Stilet]

Зачем в таймере?

Вот еще один пример:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
 function GetDesktopListViewHandle: THandle;
var

S: String;
begin

Result := FindWindow('ProgMan', nil);
Result := GetWindow(Result, GW_CHILD);
Result := GetWindow(Result, GW_CHILD);
SetLength(S, 40);
GetClassName(Result, PChar(S), 39);
if PChar(S) <> 'SysListView32' then Result := 0;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
windows.SetParent(Handle,GetDesktopListViewHandle);
end;

end.