Announcement

Collapse
No announcement yet.

Problem mit sndkey32

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Problem mit sndkey32

    Ich habe zur Zeit ein Programm mit Hilfe von sndkey32 bei dem ich über das aktive Fenster volle Kontrolle habe. Jedoch möchte ich das aktive Fenster mit ALT+TAB, von Delphi simuliert, wechseln und in ein anderes Fenster schreiben, aber anstelle des gewünschten Wechsels wird auf einmal mein Programm das aktive Fenster.
    Zum Fensterwechsel benutze ich folgenden Befehl:
    sendkeys ('(%{TAB})', TRUE);

    Kann mir bitte jemand helfen? Ein verzweifelter user

  • #2
    Hallo,

    in der Borland-Unit <b>SndKey32.pas</b> wird die Funktion <b>AppActivate</b> implementiert, um das "Ziel-Fenster" vor dem Abschicken der Botschaften in den Vordergrund zu holen:
    <pre>
    {AppActivate

    This is used to set the current input focus to a given window using its
    name. This could be used for a variety of tasks, but is especially useful
    for ensuring a window is active before sending it input messages via either
    a macro or the SendKeys function.

    }

    function AppActivate(WindowName : String) : boolean;
    var
    WindowHandle : HWND;
    begin
    Result:=true;
    WindowHandle:=FindWindow(nil,PChar(WindowName));
    If (WindowHandle<>0) then begin
    SendMessage(WindowHandle, WM_SYSCOMMAND, SC_HOTKEY, WindowHandle);
    SendMessage(WindowHandle, WM_SYSCOMMAND, SC_RESTORE, WindowHandle);
    end else Result:=false;
    end;
    </pre&gt

    Comment

    Working...
    X