昨天看到這題 ■【BCB】【問題】XP的DOS模式下執行顯示的問題  http://delphi.ktop.com.tw/topic.php?TOPIC_ID=59884 覺得有趣，所以，就花了時間玩了一下，還不錯玩  > < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=18791907&CC=420273"> 吃軟也吃硬 dllee.ktop.com.tw StatPlus 系統資源監測器 @ KTOP VMASK - ViewMove Automation Software Kernel

------
http://www.ViewMove.com

附加檔案：60039_DOSMode.zip

Delphi版

program Project1;      {$APPTYPE CONSOLE}    uses               
  Windows,SysUtils,Dialogs; 
   
procedure gotoxy(X, Y : Word);
var 
 Coord: TCoord;
begin
 Coord.X := X; 
 Coord.Y := Y;
 SetConsoleCursorPosition(GetStdHandle(STD_OUTPUT_HANDLE), Coord);
end;    const
 YellowOnBlue = FOREGROUND_GREEN OR FOREGROUND_RED OR
                FOREGROUND_INTENSITY OR BACKGROUND_BLUE;
 WhiteOnBlue  = FOREGROUND_BLUE OR FOREGROUND_GREEN OR
                FOREGROUND_RED OR FOREGROUND_INTENSITY OR
                BACKGROUND_BLUE;
 RedOnWhite   = FOREGROUND_RED OR FOREGROUND_INTENSITY OR
                BACKGROUND_RED OR BACKGROUND_GREEN OR BACKGROUND_BLUE
                OR BACKGROUND_INTENSITY;
 WhiteOnRed   = BACKGROUND_RED OR BACKGROUND_INTENSITY OR
                FOREGROUND_RED OR FOREGROUND_GREEN OR FOREGROUND_BLUE
                OR FOREGROUND_INTENSITY;    var 
 s: string;
begin 
  { TODO -oUser -cConsole Main : Insert code here } 
  s:='按一下 OK 結束'; 
  AllocConsole; 
  try        
    gotoxy(20,2);
    SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE),WhiteOnBlue);
    Write('Windows 下 DOS 模式指定位置顯示文字'); 
    
    gotoxy(20,5);
    SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE),RedOnWhite);
    Write('Windows 下 DOS 模式指定位置顯示文字'); 
       
    ShowMessage(s); 
  finally 
    FreeConsole; 
  end;   
end.            

網海無涯，唯學是岸！ 因為擁有，所以分享！ 發表人 - qoo1234 於 2004/11/19 13:46:15

哇，原來在 Windows 模式下的 DOS Box 也有專屬的 API...    我只會用純 DOS 下的 C 語言  多謝 > < href="http://free.greenworld.com.tw/~dllee/" target="blank">吃軟也吃硬 dllee.ktop.com.tw StatPlus 系統資源監測器 @ KTOP VMASK - ViewMove Automation Software Kernel

------
http://www.ViewMove.com