XProfan

Sebastian
König

Salut,

oui, cela allez: Folgender Code funktioniert avec (X)Profan et Profan2Cpp:
Kompilieren Marque Séparation

 $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

aussi si seulement un Konsolenfenster erscheint, handelt es sich aus Sicht de Windows allerdings toutefois zunächst im une Win32-GUI-Anwendung. Um cela trop changement, suffisant es réellement qui Dossier Makefile im Ausgabe-Dossier anzupassen.

chez Borland C++ zum Beispiel ist dans qui la ligne LFLAGS =... qui Option -aa dans -ap trop changement. Pour einem erneuten Aufruf de faire.bat sollte ensuite une EXE avec dem Subsystem Win32 console erstellt volonté.

MfG

Sebastian

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

Alte Profan²-Seite: [...]

R.Schneider

merci pour qui schnelle Antwort, werde je juste la fois ausprobieren.
je benutze zwar Bolodshed Dev C++ mais es wird là wohl ähnlich son.

encore la fois merci
Rudger

Perbody is nofect !

Sebastian
König

j'ai justement la fois nachgesehen: avec Dev-C++/MinGW devrait es suffire, dans qui la ligne CFLAGS =... derrière -mwindows zusätzlich (!) -mconsole einzufügen.

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

Alte Profan²-Seite: [...]