GUI mit Konsole

[Ajin]

Delphi-Quellcode:

program Project1;


uses
  Forms,
  windows;

{$R *.res}

function AttachConsole(dwProcessId:DWord):Bool;stdcall;
external 'kernel32.dll';
const ATTACH_PARENT_PROCESS=DWORD(-1);
var i:integer;


  begin
    if AttachConsole(ATTACH_PARENT_PROCESS) then
      writeln
    else
      allocConsole;
    try

      for I := 0 to 40000 do
      begin
      writeln(i);
      end;


      readln;
    finally
      Freeconsole;
    end;
end.

Das funktioniert unter Win7 x64 ohne Probleme, aber unter Windows 2000 gibts ne Fehlermeldung: Der Prozedur Einsprungpunkt "ATACHCONSOLE" wurde in der DLL kernel32.dll nicht gefunden.