Auf den Desktop schalten ?

[Vader]

hallo,

ich möchte von einen buttobclickereigniss in meinen programm auf den desktop gelangen ??

mfg vader

[MrKnogge]

such mal nal "hooks"

gruss

[Sharky]

Zitat:

Zitat von Vader

... auf den desktop gelangen ??

Hai Vader,

meinst Du so etwas?

Delphi-Quellcode:

procedure ShowDesktop;
var
  Shell :  OleVariant;
begin
  Shell := CreateOleObject('Shell.Application');
  Shell.MinimizeAll;
  Shell := VarNull;
end;


procedure TForm1.btn_ShowDesktopClick(Sender: TObject);
begin
  ShowDesktop;
end;

[Vader]

hallo sharky,

es kommt diese fehlermeldung:

Delphi-Quellcode:

[Fehler] Kuka.pas(119): Undefinierter Bezeichner: 'CreateOleObject'

mfg vader

[Sharky]

Zitat:

Zitat von Vader

... es kommt diese fehlermeldung:...

:oops:
uses
ComObj;

[Vader]

upps, wie peinlich,das kommt von meiner immerwährenden zeitnot,trotzdem danke sharky

mfg vader