Console in Delphiprogramm?

[freak4fun]

Hallo!

Kann ich dieses Konsolenfenster, das man mit cmd öffnet auch in ein Delphiprogramm einbinden? Also einmal um es wie die cmd zu nutzen und einmal um es nur als Ausgabefnster für Text zu nutzen?
Wenn ja wie realisier ich das? Also wie spreche ich das ding dann an?!
Ist es vielleicht auch Möglich auf Pascalprogramme zuzugreifen?

So viele Fragen und kaum Antworten. Bitte helft mir. Ich nehme auch gern Suchbegriffe an unter denen ich noch mehr finden kann.

mfg
freak

[Sprint]

Zum einen kannst du ein eigenes Konsolenprogramm schreiben. Dann hast du noch mit AllocConsole & FreeConsole die Möglichkeit zusätzlich zu deinem GUI Programm eine Konsole zu starten.
Dritte Möglichkeit wäre, das StdInput & StdOutput der fremden Konsolenanwendung z.B. in ein Memo umzuleiten.

[freak4fun]

Hm... hab zwar nichts verstanden, werds mir aber anschauen.

Zur 3. Mgl.: Genau das will ich nicht machen. ICh möchte das Memo so zu sagen durch das Konsolenfenster ersetzen und dann zum Beispiel wenn ich einen Butten drücke einen Text aus einem Editfeld in diesem Fenster ausgeben lasse.

mfg und danke
freak

[Jelly]

@Freak: Google mal nach TDosCommand und du landest hier. Die Kompo kann dir vielleicht nützlich sein.

[sakura]

Oder einfach mit

Delphi-Quellcode:

AllocConsole;

die Console anzeigen und mit

Delphi-Quellcode:

FreeConsole;

diese wieder ausblenden ;-)

...:cat:...

[freak4fun]

@ sakura: Aber da wird einfach nur die console auf gemacht. Ich hätte sie gern ale Bestandteil meines Programms.

-------------------------------------------------
| Programm |
| ------------------------------------ |
| |Console | |
| | | |
| | | |
| | | |
| | | |
| ------------------------------------ |
| |
| ------------------------------------ |
| |EditFeld | |
| ------------------------------------ |
| |
| ---------------- |
| | Button | |
| ---------------- |
| |
-------------------------------------------------

So soll das ungefär aussehen. :zwinker:

mfg
freak

[Jelly]

Zitat:

Zitat von freak4fun

Ich hätte sie gern ale Bestandteil meines Programms.

Hast du dir schon meinen Link angeschaut?

[freak4fun]

@ Jelly: Nein. Ich will das gern, aber ich muss erst meina nderes Projekt(Maiky-Gen) abschließen, soll doch OS oder zumindest Freeware sein.
Und weil ihr euch so Mühe gebt wollte ich auch schnell antworten. Sry. :cyclops:

mfg
freak

[freak4fun]

Nein, da war noch nicht das richtige dabei. Gibt diese Console nicht als Komponente so wie zB das Memo?

mfg
freak

[sakura]

Hier mal ein Anfang, den Rest überlasse ich Deiner Experimentierfreudigkeit :zwinker:

Erstelle ein Form mit einem Panel und einem Button (ausserhalb des Panels).

In und um den Button OnClick Handler kommt folgender Code:

Delphi-Quellcode:

function GetConsoleWindow: HWND; stdcall; external kernel32 name 'GetConsoleWindow';
function SetConsoleDisplayMode(hConsoleOutput: HWND; dwFlags: DWORD; lpNewScreenBufferDimensions: PCOORD): BOOL; stdcall; external kernel32 name 'SetConsoleDisplayMode';

procedure TForm1.Button1Click(Sender: TObject);
begin
   if AllocConsole then
   begin
     Windows.SetParent(GetConsoleWindow, Panel1.Handle);
     ShowWindow(GetConsoleWindow, SW_MAXIMIZE);
     SetWindowText(GetConsoleWindow, 'Mein Console Window');
     Button1.SetFocus;
   end;
end;

...:cat:...