Shift Cursor Down an anderes Programm senden

[API]

Funktioniert es, wenn sich das Fenster im Vordergrund befindet / den Focus besitzt?

[Dumpfbacke]

Geht auch nicht.

[WladiD]

Ich kann es zwar nicht testen, aber das sollte mit SendInputHelper wie folgt funktionieren:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  SIH: TSendInputHelper;
begin
  SIH := TSendInputHelper.Create;
  try
    SIH.AddVirtualKey(VK_HOME);
    SIH.AddShift(ssShift, True, False);
    SIH.AddVirtualKey(VK_DOWN);
    SIH.AddVirtualKey(VK_DOWN);
    SIH.AddShift(ssShift, False, True);
    SIH.Flush;
  finally
    SIH.Free;
  end;
end;

[ZYLAGON]

Mit sndkey32.pas sollte das funktionieren.
Die Unit einbinden, sicherstellen, dass das richtige Fenster aktiviert ist und mittels dem Sendkey-Befehl den Tastendruck simulieren.
Sollte dann ungefähr so lauten:
SendKeys('+{DOWN}',true);
Das '+'-Zeichen steht für die Shift-Taste und {DOWN} für Cursor nach unten.

VG ZYL

[Dumpfbacke]

Mein Problem ist das ich es direkt an das Fenster schikcen möchte da das Programm auf einen Terminalserver läuft. Dort funktioniert es so nicht oder man muss hier ständig "angemeldet" sein.
Es geht mit allem möglichem hier. Es muss eine Besonderheit bei der Shuft Tasete geben. Alles geht nur wenn ich Shift drücken möchte geht es einfach nicht.
Das ganze ist wie verhext hier.

[KodeZwerg]

Hallo Dumpfbacke,

gibt es ein Demoprojekt mit dem man sich beschäftigen könnte um Dein Problem zu lösen?

//edit
also ich mein eine Demo vom Zielprogramm, nicht ein Delphi source der SendKeys o.ä. beinhaltet.

[grizzly]

Ich bin mir jetzt nicht mehr sicher (schon ewig nix mehr damit gemacht), aber gab es da nicht auch noch die feine Unterscheidung zwischen den linken und rechten Shift Tasten? Also vk_LShift und vk_RShift? Während das vk_Shift wiederum was spezielles darstellt? Ich denke, da musste ich mal bei der Verwendung der AsyncKeyState Routinen aufpassen. Glaub ich...

[Dumpfbacke]

Zitat von KodeZwerg:

Hallo Dumpfbacke,

gibt es ein Demoprojekt mit dem man sich beschäftigen könnte um Dein Problem zu lösen?

//edit
also ich mein eine Demo vom Zielprogramm, nicht ein Delphi source der SendKeys o.ä. beinhaltet.

Hallo KodeZwerg,
danke das du mir hier helfen möchtest. Von dem Programm gibt es das leider nicht da es einen Fachanwednung ist. Ich hatte das Teil auch schon in Verdacht aber es muss wirklich an der Shift Taste liegen.

Aus diesen Grund habe ich mir ein Programm unter Delphi erstellt. Es beinhaltet nur eine Listbox mit 5 Einträgen wo man mehr als ein Eintrag auswählen kann. Also MultSelect = True. Wenn ich versuche dieses anzusteuern geht es auch nicht. Es liegt also nicht an der Fachanwendung.
Was tut man nicht alles wenn man nicht weiterkommt. Man das ist wie verhext hier.

Du kannst es Dir somit sehr einfach selbst erstellen. Ein Formular mit einer Listbox drauf. Mehr nicht.