Einzelnen Beitrag anzeigen

moelski

Registriert seit: 31. Jul 2004
1.110 Beiträge
 
Delphi 2010 Professional
 
#1

Anwendung mitstarten durch Tastenabfrage ?

  Alt 12. Dez 2007, 22:42
Moin !

Ich würde gerne mit dem Start der eigentlichen Anwendung eine weitere mitstarten lassen. Habe aber ein paar Schönheitsfehler

Also hier mal mein Code dazu:
Delphi-Quellcode:
begin
  if GetKeyState(VK_LSHIFT) < 0 then Form1.Caption := ('L Shift');
  if GetKeyState(VK_RSHIFT) < 0 then Form1.Caption := ('R Shift');
  if GetKeyState(VK_ESCAPE) < 0 then Form1.Caption := ('Escape');

  if GetKeyState(VK_F7) < 0 then StartConsole; //'Form1.Caption := ('F7');
  if GetKeyState(VK_F8) < 0 then Form1.Caption := ('F8');

  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
Das ganze steht in der Projektdatei.

Wenn ich nun F7 beim Start der Anweundung drücke, dann wird das StartConsole ausgeführt und er startet in dem Fall die SmartInspect Console mit. Das geht auch ganz gut.

Aber ab und an verliert mein Programm dann den Fokus. Ich habe schon versucht in FormShow ein
Form1.BringToFront; unterzubringen, aber das bringt auch keine sichtbare Besserung.

Kann mir jemand einen Tip geben wie ich das am besten bewerkstellige :
1) Beim Start Testatur abfragen ob bestimmte Tasten gedrückt sind.
2) Irgendwas tun mit den Tasten -> in meinem Fall eine Anwendung starten.
3) Das "richtige" Programm immer in der Vordergrund setzen.

Vielleicht habe ich ja auch nur generell was falsch bei dem Code oben, oder die Sache muss man ganz anders angehen. Wäre um Tips dankbar !

Und ne Frage am Rande ... Kann man dort auch Kombinationen abfragen wie "STRG + S" oder so? Denn viele Tastenkombis sind ungeeignet um sie beim Doppelklick auf eine EXE abzufragen / zu verwenden.
Dominik Schmidt
Greetz Dominik

I love Delphi 2007/2010
  Mit Zitat antworten Zitat