win printf

[Csehi Andras]

17 Sep 2004-kor ide.ne.irj at freemail.hu potyogte:

> dos ablakba, ha onnan inditom el? Sima printf nem muxik, a standard
> output nem letezik ilyenkor :(

	De létezik, csak a linkernek meg kõ mondani, hogy ez egy console alkalmazás. 
Ha ez nincs, mert a program maga GUI, akkor az AllocConsole API fv.-nyel lehet 
operálni, ilyenkor nyit neked egy konzolt (DOS ablak). Itt egy Delphi kód, majd 
mazsolázz.

procedure TForm1.Button5Click(Sender: TObject);
var hStdout: DWORD;
    iWrittenChar: DWORD;
    aMessage: array[ 0 .. 100 ] of Char;
begin
  StrCopy( @aMessage, '012345678901' );
  
  AllocConsole;
  hStdout := GetStdHandle( STD_OUTPUT_HANDLE );
  WriteConsole( hStdout, @aMessage, 12, iWrittenChar, nil );
  ShowMessage( 'Megy?' );
  FreeConsole;
end;

Csehi András
acsehi at freemail.hu, acsehi at qsoft.hu
(1) 209-6651, (20) 410-5343