ShowWindow fehler

[fkerber]

Hi!

Delphi-Quellcode:

procedure TForm1.DesktopIcons1Click(Sender: TObject);
begin
  if DesktopIcons1.Checked then
    begin
      ShowWindow(FindWindow(nil, 'Program Manager'), SW_HIDE);
      DesktopIcons1.Checked:=False;
    end
  else
    begin
      ShowWindow(FindWindow(nil, 'Program Manager'), SW_SHOW);
      DesktopIcons1.Checked:=True;
    end;
end;

Ciao fkerber