Programm deaktivieren > zuletzt genutztes Programm aktiv ?

Lannes · Verfasst: Do 08.02.07 14:57

Hallo,

hab mir gerade ein "kleines" Tool geschrieben, FormStyle ist fsStayOnTop.
Es besteht eigentlich nur aus einem Edit und etwas Code.
In dieses Edit wird etwas eingegeben und wenn die Eingabe entsprechend den Vorgaben ist, wird der String umgewandelt und in die Zwablage befördert.
Das Toll brauche ich um in verschiedenen, nicht von mir geschriebenen Anwendungen, den überarbeiteten String einfügen zu können.
Jetzt möchte ich das bei erfolgreicher Stringumwandlung mein Tool automatisch deaktiviert wird, damit die zuletzt genutzte Anwendung wieder den Focus hat, und ich den String direkt mit Strg + V einfügen kann.

Da das verschiedene Anwendungen sind komme ich mit FindWindow nicht weiter.
Das ewige Klicken mit der Maus oder umschalten per Alt + Tab nervt. :evil:

Hat jemand einen Tipp oder einen Link für mich?

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

alias5000 · Verfasst: Do 08.02.07 15:12

Lässt sich das mit GetForegroundWindow/SetForegroundWindow realisieren?

_________________
Programmers never die, they just GOSUB without RETURN

Lannes · Verfasst: Do 08.02.07 16:58

Hallo,

das war der Wink in die richtige Richtung :zustimm:

MiniTool teilt mir jetzt über die Zwablage folgendes mit:
Hallo Alias5000, ich danke Dir!

Man muss nachdem das Tool gestartet ist, die Zielanwendung einmal aktivieren, dann läuft es.
Innerhalb Application.OnDeactivate ermittelt GetForegroundWindow das Handle der Anwendung die aktiviert wird.

Mal austesten was bei Autostart und minimieren in den Tray passiert.

Wenn das mal jemand gebrauchen kann, hier mal der betreffende Code soweit:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

  public
    h : hwnd;
    procedure AppDeactivate(Sender: TObject);
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
implementation

{$R *.DFM}

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if Edit1.Text = 'Alias5000' then
    begin
    Clipboard.AsText := 'Hallo '+Edit1.Text+', ich danke Dir!';
    SetForegroundWindow(h);
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnDeactivate := AppDeactivate;
end;

procedure TForm1.AppDeactivate(Sender: TObject);
begin
  h := GetForegroundWindow;
end;

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

alias5000 · Verfasst: Do 08.02.07 17:07

Lannes hat folgendes geschrieben:

MiniTool teilt mir jetzt über die Zwablage folgendes mit:
Hallo Alias5000, ich danke Dir!

Kannst du mir das Programm dann mal kompiliert schicken? Dann kann ich mich noch ein wenig weiter dran erfreuen :mrgreen:

Gruß
alias5000

_________________
Programmers never die, they just GOSUB without RETURN

Lannes · Verfasst: Fr 09.02.07 00:12

Hallo,

wahrscheinlich kommt das hier auch in die Freeware Sparte,
für Dich erstell ich dann eine Sonder-Edition :wink:

Im Anhang schon mal eine Vorschau.

Einloggen, um Attachments anzusehen!

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme