кнопка на рабочем столе

[guffer]

Как сделать кнопку на рабочем столе?

[BOBAH13]

Окно + BorderStyle = bsNone; + AutoSize = True; на ней кнопка.

edit:
именно что не проще.
p.s. извращением занимаитесь

[Levsha100]

А не проще ли кнопке родителем сделать рабочий стол?

[Stilet]

Например так:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public    b:TButton;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 MessageBox(GetForegroundWindow,'qq','',0);
end;

procedure TForm1.FormCreate(Sender: TObject);
 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;
//**************************************************************************

begin
   b:=TButton.Create(self);
   b.Parent:=self;
   b.Left:=100;b.Top:=100;
   b.Width:=100;
   b.Height:=100;
   b.OnClick:=Button1Click;
   windows.SetParent(b.Handle,GetDesktopListViewHandle);
   b.Show;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
b.free;
end;

end.

Но код естесственно требует доработки. Скажи зачем тебе это может есть другой способ.