Programm in Desktop einbinden

[mOzZzI]

Hallo!,

ich habe schon mal einen Thread entdeckt wo ein Link war wie man das Programm in den Desktop einbindet
aber leider hat da meine Internetverbindung gestreikt...
Könnte mir jemand den Code posten, oder sagen wie es geht?

P.S.: mir ist klar das die Form dann unbedienbar ist!

[PierreB]

Möchtest du das deine Anwendung stehts auf dem Desktop liegt oder was ? Eine nähere Beschreibung wäre sehr hilfreich.

Vielleicht is das ja das was du suchst: http://www.delphipraxis.net/internal...always+desktop

[mOzZzI]

Ne, des mein ich nicht...

Ich zeig mal ein Beispiel an:

Das Fenster ist Transparent und im Desktop, also man kann es nicht bedienen und nicht verrutschen...

Bsp. von Aenogyms Bildschirm:
http://www.delphipraxis.net/download.php?id=17640

P.S. das fenster links oben

[Logic]

Ich würde das auch gerne machen. Weiß vielleicht jemande eine Antwort?

[ghost007]

öhm, einfach die form disablen, vll noch alphablend einfügen und je nach belieben durch die TryIcon komponente das programm aus der Taskleiste entfernen.

[ghost007]

hier mal ein beispiel (ich denke so was sucht ihr)

[SirThornberry]

wenn das ganze im Desktop sein soll muss eigentlich nur der Parent auf das Desktopfenster gesetzt werden.

[MisterNiceGuy]

Und wie macht man das? ;)

[TStringlist]

Parallel zum Vorschlag von ghost007 dürfte diese hier wohl auch noch recht hilfreich sein. Dazu ggf. noch ein <BorderStyle:=bsNone> oder bei einem oben draufliegenden TImage-Objekt dort dann auch noch die Transparenz-Property auf TRUE stellen...

[SirThornberry]

@MisterNiceGuy: Das handle des Listviews des Desktop holen und dann mit windows.SetParent den Parent des Forms umsetzen

[turboPASCAL]

Nun muss ich doch mal fragen, wie bekomme ich das Fenster hinter das Listview,
also zwischen SysListView32 und Wallpaper ("SHELLDLL_DefView") ? :gruebel:

Das währe ja eine tolle Sache...

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  protected
    { Protected declarations }
    procedure CreateParams(var Params: TCreateParams); override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CreateParams(var Params: TCreateParams);
var hw: HWND;
begin
  inherited CreateParams(Params);

  hw := FindWindow('SHELLDLL_DefView', nil);

  Params.WndParent := getdesktopwindow;
                            {hw -  funktioniert nicht
                            dann meckert das Programm das
                            es kein Hauptfenster hat}


  Params.Style := {WS_POPUP or} WS_CHILD;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  AlphaBlend := True;
  AlphaBlendValue := 180;
end;