Ein Programm funktioniert nur wenn man aus IDE startet. [gelöst]

[Bora4d]

Hallo,
ich habe ein Programm ähnlich wie Taskleiste. Die angezeigten Fenster werden in Toolbar als Toolbuttons angezeigt. Wenn man auf ein ToolButton mit der rechten Taste klickt soll Systemmenü von Programm erscheinen, sowie bei Windows-Taskleiste.
Das Problem ist die Systemmenü werden nur angezeigt wenn Programm aus der Delphi-IDE startet. Wenn man es außerhalb der IDE startet, wird das Systemmenü von externes Programm einmal oder nie gezeigt.
Kennt jemand die Lösung dafür?

Quelltext des Beispielprogramms:
(Wichtig ist: procedure TForm1.ShowSysMenu(aWin: HWND; X,Y: Integer);)

Delphi-Quellcode:

unit sysmenudemoUnit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ButNotepadMenu: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure ToolButton1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure ButNotepadMenuClick(Sender: TObject);
  private
    { Private declarations }
    procedure ShowSysMenu(aWin: HWND; X,Y: Integer);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ShowSysMenu(aWin: HWND; X,Y: Integer);
var aLPar : LPARAM;
begin
  //hier ist der Fehler, das klappt wenn man aus IDE Startet für alle Fenster
  //wenn man außerhalb wer IDE startet nur für eigene Fenster

  aLPar:=(Y shl 16) + X;
  PostMessage(aWin, $0313,0,aLPar);  //send window showmenu message from: http://delphi.about.com/od/vclwriteenhance/a/ttaskbarmenu.htm
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  //Eigene Systemmenü anzeigen
  ShowSysMenu(Handle,Mouse.CursorPos.X,Mouse.CursorPos.Y);
end;

procedure TForm1.ToolButton1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 //Eigene Systemmenü anzeigen
  ShowSysMenu(Handle,Mouse.CursorPos.X,Mouse.CursorPos.Y);
end;

procedure TForm1.ButNotepadMenuClick(Sender: TObject);
var aWin: HWND;
begin
  //Notepad(Editor) Systemmenü anzeigen
  aWin := FindWindow('notepad', nil);

  if aWin=0 then begin //Notepad Vielleicht nicht gestartet deshalb starten
    WinExec('notepad.exe',SW_SHOW);
    aWin := FindWindow('notepad', nil);
  end;

  if aWin<>0 then ShowSysMenu(aWin,Mouse.CursorPos.X,Mouse.CursorPos.Y);
end;

end.

Fall jemand braucht, komplette Demoprojekt habe ich auch als Anhang hoch geladen:

[himitsu]

PostMessage hat Rückgabewerte und man mag es kaum glauben, aber die kann man auswerten. :roll:

siehe PostMessage



Result und GetLastError (SysErrorMessage, bzw. RaiseLastOSError/RaiseLastWin32Error)

[Bora4d]

Das ist ja das Problem, es gibt kein Fehler; Message wird weitergereicht.
Nur es funktioniert wenn man es von Delphi IDE startet sonst nicht.
Window-Handle und Koordinaten alles richtig.

[himitsu]

Welches Betriebssystem?
Und du startest dein D7 nicht zufällig als Admin?

[edit]
Windows XP oder so?

Windows 7 zeigt in der Taskleiste nicht mehr das SystemMenü an, welche man auch über Alt+Leertaste oder über das Fenstericon zu sehn bekommt, sondern ein Eigenes.

[Bora4d]

Getestet mit D7 ohne und mit Adminstart unter Windows Xp und Windows 8 Preview.
Ich habe das Demoprojekt auch mit Lazarus erstellt, dort auch dasselbe Ergebnis.

Edit:
Das funktioniert auch mit Win7/8 wenn es aus der IDE gestartet wird. Ich glaube Message wird von Windows nur ausgewertet/empfangen wenn debbugger mit läuft, weill gleiche Effekt mit Lazarus auftaucht.

[himitsu]

Zitat:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  //Eigene Systemmenü anzeigen
  ShowSysMenu(Handle,Mouse.CursorPos.X,Mouse.CursorPos.Y);
end;

Hmmmm, mit XE2 auf WHS2011 probiert.

Funktioniert auch außerhalb der IDE.

Aber ich seh natürlich das falsche Menü. (so isses halt, mit den undokumentierten APIs ... siehe das Edit im letzten Post)

Delphi-Quellcode:

var
  B: Boolean;
  E: HRESULT;
begin
  B := PostMessage(Handle, $0313, 0, (Mouse.CursorPos.Y shl 16) + Mouse.CursorPos.X);
  E := GetLastError;
  ShowMessage(BoolToStr(B, True) + sLineBreak + SysErrorMessage(E));

Liefert also nur True und "war erfolgreich"?


Hast du es mal mit SendMessage versucht?
PostMessage sagt maximal, daß die Message vermutlich in die MessageQueue eingetragen, aber nicht ob es auch verarbeitet wurde.


PS: Unter Delphi 7 mußt du es eigentlich an Application.Handle schicken, da dort ja noch das versteckte Application-Fenster in der Taskbar angezeigt wurde und nicht die MainForm.

[Bummi]

Ein interessantes Verhalten (nachvollziehbar unter D2010 Win7), einen Lösungsansatz habe ich leider nicht ...

[himitsu]

Seit Vista/7 werden ja nicht mehr alle Messages versendet, solange man nicht die nötigen Rechte hat,
aber unter XP war das doch eigentlich noch nicht so und sich selbst sollte man sowieso was senden können. :gruebel:

[Bora4d]

Ich habe es auch mit GetSystemMenu versucht funktionierte nur für eigenes Programm.
Was ist WHS2011? Funktionert das ausßerhalb IDE wiederholt oder nur wenn notepad zum erstenmal startet?

Ich habe das Beispielprogramm in reine Win32-Delphi-Programm (nonVCL) und in C erstellt überall dasgleiche Ergebnis. Villeicht muß ich irgendwo Sicherheitsfunktionen aufrufen, sowie bei Arbeit mit Registry.

Mit SendMessage versuch ich es mal.

Vielen Dank für eure bisherige Mühen, falls jemand Lösung hat wäre ich dankbar.

[Bora4d]

Jetzt hab ich mit SendMessage getestet bei IDE start gleiches Ergebnis in beiden Fällen merkwürdige Fehlercodes. Die Fehler kommen abwechselnd ubabhängig ob Menu angezeigt ist oder nicht:
5 : Zugriff verweigert
0 : Der Vorgang wurde erfolgreich beendet.
8 : Für diesen Befehl ist nicht genügend Speicher verfügbar.

Ich glaube ich erstelle eigene Systemmenü, es ist einfacher und flexibler.

Vielen Dank noch mal.