Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Console darf sich nicht schließen (https://www.delphipraxis.net/34064-console-darf-sich-nicht-schliessen.html)

Piro 16. Nov 2004 22:32


Console darf sich nicht schließen
 
Moin,

ich gebe per ShellExecute Parameter (z.B. ipconfig /all) an die Konsole aber sie schließt sich im nachhinein. Wie kann das verhindern, so dass die Console aufbleibt.

Sven

Mystic 16. Nov 2004 22:35

Re: Console darf sich nicht schließen
 
Zitat:

Zitat von daywalker299
Moin,

ich gebe per ShellExecute Parameter (z.B. ipconfig /all) an die Konsole aber sie schließt sich im nachhinein. Wie kann das verhindern, so dass die Console aufbleibt.

Sven

Schreib dir eine Batch-Datei:

Code:
@echo off
%1 %2 %3 %4 %5 %6 %7 %8 %9
pause
und ruf die dann auf:

Programm: deine batch-datei
Parameter: ipconfig /all

Piro 16. Nov 2004 23:13

Re: Console darf sich nicht schließen
 
ja fast die lösung aber möchte nachdem das programm und die parameter ausgeführt worden, weitere einträge in die console vornehmen.

wenn da jetzt aber ein pause hinsetze, schließt sich das fenster nach einem tastendruck.

wie kann ich denn das obere realisieren?

Sven

bigg 16. Nov 2004 23:20

Re: Console darf sich nicht schließen
 
Code:
program test; {$APPTYPE CONSOLE}
uses SysUtils;


var
Param: String;



begin
repeat
Readln(Param);



until Param = 'exit';
end.

Piro 17. Nov 2004 00:01

Re: Console darf sich nicht schließen
 
Ich glaube ich muss die situation erstmal ordentlich schildern.

Ich habe eon prog aus dem ich die console öffnen möchte. jetzt soll sich die console öffnen und gleich mitgegebene parameter ausführen.
danach soll der prompt stehen bleiben damit ich weitere consoleneinträge vornehmen kann.

tja, wie geht das?

danke.

Sprint 17. Nov 2004 02:04

Re: Console darf sich nicht schließen
 
Zitat:

Zitat von daywalker299
ich gebe per ShellExecute Parameter (z.B. ipconfig /all) an die Konsole aber sie schließt sich im nachhinein. Wie kann das verhindern, so dass die Console aufbleibt.

Delphi-Quellcode:
ShellExecute(0, 'open', 'CMD.EXE', '/K IPCONFIG /ALL', nil, SW_SHOWNORMAL);
Wenn du Win9x als Betriebssystem einsetzt, dann musst du CMD.EXE durch COMMAND.EXE ersetzen und eventuell den Parameter K anpassen.

Piro 17. Nov 2004 08:46

Re: Console darf sich nicht schließen
 
danke hat geklappt.


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:47 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz