Desktop symbole ein/ausblenden

[vip11]

hi
ich hab mal ne frage: wie kann ich die funktion "desktop symbole anzeigen" mit delphi auslösen?
hotkey hab ich bereits jetzt müsst ihc nur noch wissen wie man die funktion benutzten kann(vista).

mfg vip11

[0xF48CBFF]

Hallo vip11,

hier ein Beispiel, wie man die Icons auf dem Dektop anzeigen und verstecken kann:

Delphi-Quellcode:

ShowWindow(FindWindow(nil, 'Program Manager'), SW_SHOW);
ShowWindow(FindWindow(nil, 'Program Manager'), SW_HIDE);

Es funktioniert unter Windows XP einwandfrei.

0xF4CBFF

[vip11]

thx klappt
jetzt hab ich des problem das mein programm die hotkeys nimmer nimmt
was hab ich falsch gemacht?

Code:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    id3: Integer;
    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
  public
    { Public declarations }
  end;

var
  x : integer;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
  if Msg.HotKey = id3 then
    button1.Click;
end;

procedure TForm1.FormCreate(Sender: TObject);
const
  VK_F4 = $73;
begin
x := 0;
  id3 := GlobalAddAtom('Hotkey3');
  RegisterHotKey(Handle, id3, 0, VK_F4);

end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnRegisterHotKey(Handle, id3);
  GlobalDeleteAtom(id3);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if x = 0 then begin
      x:= 1;
ShowWindow(FindWindow(nil, 'Program Manager'), SW_SHOW);
end else if x= 1 then begin
x:= 0;
ShowWindow(FindWindow(nil, 'Program Manager'), SW_HIDE);
end;
end;

end.

[0xF48CBFF]

Hallo vip11,

ich sehe in deinem Code keinen Fehler. Habe es sogar getestet und es funktioniert ohne Fehler.

0x48CBFF

[vip11]

hm bei mir klappts nicht (bei ner alten datei die auch so gemacht wurde schon)
könnte des nen problem mit dem pc sein?

[0xF48CBFF]

Hallo vip11,

sicher, dass du die F4-Taste drückst?

0xF48CBFF

[vip11]

ja^^ wie gesagt hab ja schon nen anderes Programm mit F4 gemacht und des geht (hab leider nur noch die exe selbst)
dies hab ich damals damit gemacht: http://www.swissdelphicenter.ch/de/showcode.php?id=147
des geht auch bei mir nicht mehr. kann man irgendwie überprüfen ob delphi fehler hat?

oder irgendwer mal erstellen und die exe hochlade damit ich prüfen kann obs an meinem delphi liegt

[vip11]

/push

[vip11]

/push

[toms]

Wird F4 evtl durch ein anderes Programm belegt?
Wird WMHotKey und dann button1.Click ausgeführt?