AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Ein Programm funktioniert nur wenn man aus IDE startet. [gelöst]
Thema durchsuchen
Ansicht
Themen-Optionen

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

Ein Thema von Bora4d · begonnen am 22. Jun 2012 · letzter Beitrag vom 23. Jun 2012
Antwort Antwort
Bora4d

Registriert seit: 8. Okt 2006
26 Beiträge
 
Delphi 7 Professional
 
#1

AW: Ein Programm funktioniert nur wenn man aus IDE startet.

  Alt 22. Jun 2012, 22:43
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.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.557 Beiträge
 
Delphi 12 Athens
 
#2

AW: Ein Programm funktioniert nur wenn man aus IDE startet.

  Alt 22. Jun 2012, 22:57
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.
Angehängte Grafiken
Dateityp: png Unbenannt.png (51,5 KB, 13x aufgerufen)
Ein Therapeut entspricht 1024 Gigapeut.

Geändert von himitsu (22. Jun 2012 um 23:03 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#3

AW: Ein Programm funktioniert nur wenn man aus IDE startet.

  Alt 22. Jun 2012, 23:05
Ein interessantes Verhalten (nachvollziehbar unter D2010 Win7), einen Lösungsansatz habe ich leider nicht ...
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.557 Beiträge
 
Delphi 12 Athens
 
#4

AW: Ein Programm funktioniert nur wenn man aus IDE startet.

  Alt 22. Jun 2012, 23:31
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.
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
Bora4d

Registriert seit: 8. Okt 2006
26 Beiträge
 
Delphi 7 Professional
 
#5

AW: Ein Programm funktioniert nur wenn man aus IDE startet.

  Alt 22. Jun 2012, 23:41
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.
  Mit Zitat antworten Zitat
Bora4d

Registriert seit: 8. Okt 2006
26 Beiträge
 
Delphi 7 Professional
 
#6

AW: Ein Programm funktioniert nur wenn man aus IDE startet.

  Alt 23. Jun 2012, 00:01
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.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.557 Beiträge
 
Delphi 12 Athens
 
#7

AW: Ein Programm funktioniert nur wenn man aus IDE startet.

  Alt 23. Jun 2012, 00:47
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: MSDN-Library durchsuchenWinExec
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
Bora4d

Registriert seit: 8. Okt 2006
26 Beiträge
 
Delphi 7 Professional
 
#8

AW: Ein Programm funktioniert nur wenn man aus IDE startet.

  Alt 23. Jun 2012, 01:25
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.
  Mit Zitat antworten Zitat
Antwort Antwort

 

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:09 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz