Ermitteln, ob Konsolenanwendung sichtbar ist

Ehemaliges Mitglied Erhaltene Danke: 1

Hallo,
Ich suche eine Möglichkeit, herauszufinden / abzufragen, ob mein Konsolenprogramm sichtbar ist.
Ich habe leider keinen Ansatz dazu vorzubringen, weil meine Suche nach ähnlichen Themen nicht aufschlussreich war.
Ich hoffe, jemand weiß Rat.

Vielleicht noch zur Info, wie ich die Konsolenanwendung erstelle:

markieren

Delphi-Quelltext

1:
2:
3:

program Test;

{$APPTYPE CONSOLE}

SAiBOT · Beiträge: 323 Erhaltene Danke: 6 XP SP2; 7 D7; D2009

ISWINDOWVISIBLE

_________________
Debuggers don't remove bugs, they only show them in slow-motion.

Ehemaliges Mitglied Erhaltene Danke: 1

Oh

Ich hab nicht gedacht, dass es so einfach ist. Ich bin die ganze Zeit davon ausgegangen, dass Konsolen kein Handle haben - aber ich wurde eines besseren belehrt klick
Ich werd die Funktion posten, wenn sie funktioniert. Habe gerade keine Zeit, sie zu implementieren.

Auf jeden Fall vielen Dank für die schnelle Antwort

SAiBOT · Beiträge: 323 Erhaltene Danke: 6 XP SP2; 7 D7; D2009

Das Handle bekommst du ganz leicht mit Suche im MSDN

GETCONSOLEWINDOW.

Beispiel:

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:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  windows;

function GetConsoleWindow():HWND; stdcall; external 'kernel32.dll';

var
  h:HWND;
begin
  h := GetConsoleWindow();
  if IsWindowVisible(h) then
    WriteLn('HALLO1!');
  ShowWindow(h, SW_HIDE);
  if IsWindowVisible(h) then
    WriteLn('HALLO2!');
  ShowWindow(h, SW_SHOWNORMAL);
  if IsWindowVisible(h) then
    WriteLn('HALLO3!');
  ReadLn;
end.

_________________
Debuggers don't remove bugs, they only show them in slow-motion.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme