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

[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.

[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.

[himitsu]

Delphi-Quellcode:

if aWin <> 0 then begin
  Windows.BringWindowToTop(aWin);
  Windows.SetFocus(aWin);
  ShowSysMenu(aWin, Mouse.CursorPos.X, Mouse.CursorPos.Y);
end else
  ;// keine Fehlermeldung?

PS: WinExec

[Bora4d]

himitsu
du bist der Held!
Es funktioniert jetzt. Hätte die gedacht, dass es im Vordergrund und aktif sein muß.

Wegen WinExec, es ist nur Demo im richtigen verwende ich ShellExecute.