XProfan

Sebastian
König

Ciao,

ja, das geht: Folgender Code funktioniert mit (X)Profan und Profan2Cpp:
Kompilieren Markieren Separieren

 $H windows.ph
~AllocConsole()
declare hOut&,hIn&
let hIn& = ~GetStdHandle(~STD_INPUT_HANDLE)
let hOut& = ~GetStdHandle(~STD_OUTPUT_HANDLE)
~SetConsoleTitle("XProfan-Konsole")
declare text$,dwWritten&
let text$ = "Tastendruck zum Beenden!"
~WriteConsole(hOut&,Addr(text$),Len(text$),Addr(dwWritten&),0)
declare buff#,dwRead&
dim buff#,1024

whilenot dwRead&

    ~ReadConsole(hIn&,buff#,1024,Addr(dwRead&),0)
    Sleep 10

wend

end

Auch wenn nur ein Konsolenfenster erscheint, handelt es sich aus Sicht von Windows allerdings dennoch zunächst im eine Win32-GUI-Anwendung. Um das zu ändern, sufficiente es tatsächlich die File Makefile im Ausgabe-Ordner anzupassen.

Bei Borland C++ zum Beispiel ist in der Zeile LFLAGS =... die Option -aa in -ap zu ändern. Nach einem erneuten Aufruf von make.bat sollte dann eine EXE mit dem Subsystem Win32 console erstellt werden.

MfG

Sebastian

Windows XP, XProfan/Profan² 4.5 bis 11
Profan2Cpp-Homepage: [...]

Alte Profan²-Seite: [...]

R.Schneider

Danke per die schnelle Antwort, werde ich gleich mal ausprobieren.
Ich benutze zwar Bolodshed Dev C++ aber es wird da wohl ähnlich sein.

Noch mal Danke
Rudger

Perbody is nofect !

Sebastian
König

Ich habe gerade mal nachgesehen: Mit Dev-C++/MinGW müsste es genügen, in der Zeile CFLAGS =... hinter -mwindows zusätzlich (!) -mconsole einzufügen.

Windows XP, XProfan/Profan² 4.5 bis 11
Profan2Cpp-Homepage: [...]

Alte Profan²-Seite: [...]