Wie wurde dieses Programm programmiert, bzw. wie funktioniert es?

[EWeiss]

Zitat von DeddyH:

Ob sie jetzt "durchklickbar" ist, weiß ich nicht, aber mir fällt spontan Emils GDIClock ein, das Ding ist OpenSource, vielleicht lässt sich da ein wenig spicken (ich selbst habe aber zugegebenermaßen nicht reingeguckt).

Jo das ist durchklickbar.. (Ghostmode)

Delphi-Quellcode:

procedure TClockForm.MakeWndTransparent(Value : Boolean);
var
   curWinStyle: Integer;
begin
   curWinStyle := GetWindowLong(Handle, GWL_EXSTYLE);
   if Value then
      SetWindowLong(Handle, GWL_EXSTYLE, curWinStyle or WS_EX_TRANSPARENT)
   else
   SetWindowLong(Handle, GWL_EXSTYLE, curWinStyle and (not WS_EX_TRANSPARENT));
end;

Delphi-Quellcode:

procedure TClockForm.menuGhostClockClick(Sender: TObject);
var
   curWinStyle: Integer;

begin
   menuGhostClock.Checked := not menuGhostClock.Checked;

   curWinStyle := GetWindowLong(Handle, GWL_EXSTYLE);
   bGhostClock := not((curWinStyle and WS_EX_TRANSPARENT) = WS_EX_TRANSPARENT);
   MakeWndTransparent(bGhostClock);
   IsFirstTimer := true;   // to apply modified setting at once

   if bGhostClock then
     MessageBox(Handle, pchar(msgs[6] + #10#10+ msgs[7]), pchar(msgs[1]), MB_OK);
end;

PS:
Super unter Klatsch und Tratsch.. Da gehört es hin?

gruss