Rückgabewert nach bzw. beim Beenden ausgeben.

[Christian Seehase]

Moin StTüff,

funktioniert WriteConsole bei Dir nicht?

Delphi-Quellcode:

program Project2;
{$APPTYPE CONSOLE}
uses sysutils,windows;

var
  hStd     : DWORD;
  sMessage : string;
  dwDummy  : DWORD;

begin
  hStd := GetStdHandle(STD_OUTPUT_HANDLE);
  if hStd <> INVALID_HANDLE_VALUE then
  begin
    sMessage := 'MELDUNG'+#00;
    WriteConsole(hStd,@sMessage[1],Length(sMessage),dwDummy,nil);
  end;
end.

Wenn ich hier im Einzelschritt durchgehe, habe ich den Text aus sMessage in der Konsole stehen, nachdem WriteConsole abgearbeitet wurde.