Wm_syscommand

[marabu]

Das willst du jetzt bestimmt nicht lesen, aber bei mir funktioniert das so - direkt aus dem laufenden Quelltext kopiert:

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var
  h: HWnd;
  buf: array [0..255] of char;
begin
  h := Handle;
  while h > 0 do
  begin
    if IsWindowVisible(h) then
    begin
      GetWindowText(h, buf, SizeOf(buf));
      if StrPas(@buf) <> 'Program Manager'
        then PostMessage(h, WM_SYSCOMMAND, SC_CLOSE, 0)
        else ShowMessage('not closing program manager');
    end;
    h := GetNextWindow(h, GW_HWNDNEXT);
  end;
end;

marabu

[Christian Seehase]

Moin Amd,

unter welchem Betriebssystem hast Du das getestet?

Marabus Beispiel funktioniert, z.B. auch unter Windows 2000 SP4. (mit und ohne ShowMessage)

[Amd]

Hallo Christian...
ich arbeite mit WinXp inkl. Sp2

Grüße Amd

[Amd]

@marabu

Zitat:

Das willst du jetzt bestimmt nicht lesen, aber bei mir funktioniert das so

Jepp das stimmt.
Ich muss auch sagen das ich deinen Beitrag auch ersteinmal überlesen habe, es kamen soviele auf einmal.

Aber...,
bei mir sieht mein desktop mit deinem Sourcecode auch so aus.
http://www.siratec.de/gifs_fr_ub/screen.gif
Führe erstmal deinen Code aus...dann klickst du auf den "Desktop anzeigen" Button unten im Schnellstart der Taskleiste, dann führe bitte nochmal deinen Code aus.
Und....?

Grüße
Amd

[marabu]

Habe deine Vorgehensweise nachvollzogen und kann dir den Fehler bestätigen. Leider werde ich ihn heute abend nicht mehr analysieren können.

marabu

[Amd]

moin marabu

Zitat:

Habe deine Vorgehensweise nachvollzogen und kann dir den Fehler bestätigen.

*puuuh* super...

Grüße
Amd

[marabu]

Hallo Amd,

vielleicht ist dein Vorhaben gar nicht so einfach zu realisieren, wie in deinem ersten Ansatz. Zumindest habe ich einen Link gefunden, wo sich die Diskutanten deutlich mehr Arbeit machen: klick

Grüße vom marabu

[Amd]

Hey danke für den Link, hilft weiter :)

[Amd]

Was mir aufgefallen ist, wenn ich alles in FormShow packe ist der Deektop weg ...
wenn ich alles in in einen Button packe ist alles ok.

[Amd]

Zitat:

Zitat von Amd

Was mir aufgefallen ist, wenn ich alles in FormShow packe ist der Deektop weg ...
wenn ich alles in in einen Button packe ist alles ok.

jepp das war es auch....im

Delphi-Quellcode:

OnPaint

funktioniert es nun.
Danke für eure Hilfe :)