Forum: Object-Pascal / Delphi-Language
Delphi
by MaToBe,
3. Nov 2008
procedure TMainForm.TActiveWindowTimer(Sender: TObject);
var Wnd: HWND;
sTitle: string;
begin
Wnd := GetForegroundWindow;
if Wnd <> 0 then
begin
SetLength(sTitle,GetWindowTextLength(Wnd) + 1);
GetWindowText(Wnd,PChar(sTitle),Length(sTitle));
AktivesFenster := sTitle;
Forum: Object-Pascal / Delphi-Language
Delphi
by MaToBe,
3. Nov 2008
ja jetzt nimmt er immer den ganzen Fenster Titel.
Allerdings versteh ich jetzt noch weniger... denn jetzt Schreibt er statt (Notepad => <<<Notepad). warum werden die andern 3 >>> nicht ausgegeben? Das hat doch jetzt mit dem Fenstertitel ansich gar nichts mehr zu tun oder??
Ah und nochwas, ich hab mir gerade mal die Ankündigungen durchgelesen und nun hab ich bedenken, dass ich einigen hier...
Forum: Object-Pascal / Delphi-Language
Delphi
by MaToBe,
3. Nov 2008
procedure TMainForm.TActiveWindowTimer(Sender: TObject);
var Wnd: HWND;
sTitle: string;
begin
Wnd := GetForegroundWindow;
if Wnd <> 0 then
begin
SetLength(sTitle,GetWindowTextLength(Wnd));
GetWindowText(Wnd,PChar(sTitle),Length(sTitle));
AktivesFenster := sTitle;
Forum: Object-Pascal / Delphi-Language
Delphi
by MaToBe,
3. Nov 2008
procedure TMainForm.TActiveWindowTimer(Sender: TObject);
begin
GetForegroundWindow;
WindowText := GetWindowText(GetForegroundWindow, nil, nil);
if WindowText <> WindowText2 then
begin
Memo1.SelText:= WindowText;
WindowText2 := WindowText;
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by MaToBe,
3. Nov 2008
Guten Tag,
wenn das Betribssystem gestartet ist, ist doch immer ein Window aktive oder?
Also wenn ich zum Beispiel Word im Vordergrund hab ist mein Aktiv Window => Word.
Gibt es jetzt eine Befehl/Funktion die einem immer das aktive Window in einem Edit Feld o.Ä. ausgibt?
Hab dazu leider nichts gefunden. MFG MaToBe
