帮个忙， 我现在怎么就是找不到用PASCSL在DOS下面做图形界面的资料呢

Question

大家有吗，  奉献下好吧， 呵， 谢了， [email protected]

Answer 1

楼主啊，现在都什么年代了啊，还开发DOS图形程序？就算做出来了，有地方使用吗？

Answer 2

我有一本书,相当不错的,只是现在没在我手上,因为不用,所以一直在老家放着
书名是《Turbo Pascal6.0编程技巧和实例》，电子工业出版社出版，那本书是我在95年的时候买的，也是我唯一本珍藏到现在的Turbo pascal书籍，里面有关于内存覆盖技术、中断调用、DOS重入（内存贮留程序的设计）、打印、图形、游戏等内容，是一本不可多得的好书，估计现在在市场上是找不到这本书了，另外还有一本不错的书，《TurboPascal大全》好像也是电子工业出版社出版的，这本书还有可能在市场上找到

Answer 3

好久了，都忘记了。我记得也就是初始化屏幕，然后画，然后关闭屏幕。好像pascal中有一个graphic的pas文件，你看看源代码中提供哪些函数，然后自己试试？

Answer 4

Graphics 单元，可以看一些例子，Pascal 自己带的例子。

Answer 5

你是指这个吗？
program Project1;{$APPTYPE CONSOLE}uses
  windows,
  messages;// 回调函数
function AppWindowProc(
    hWnd:HWND; uMsg:UINT;
    wParam:WPARAM; lParam:LPARAM):LRESULT; stdcall;
begin
  Result := 0;
  case uMsg of
    WM_DESTROY:begin
      PostQuitMessage(0);
      Exit;
    end;
  end;
  Result :=
    DefWindowProc(hWnd, uMsg, wParam, lParam);
end;
var
  wc: TWndClass;
  hWnd: Integer;
  MSG: TMsg;begin
  { TODO -oUser -cConsole Main : Insert code here }
  // 程序从这里开始执行
  wc.style := CS_VREDRAW or CS_HREDRAW;
  wc.lpfnWndProc := @AppWindowProc;
  wc.cbClsExtra := 0;  wc.cbWndExtra := 0;
  wc.hInstance := HInstance;
  wc.hIcon := LoadIcon(0, IDI_APPLICATION);
  wc.hCursor := LoadCursor(0, IDC_ARROW);
  wc.hbrBackground := (COLOR_BTNFACE+1);
  wc.lpszMenuName := nil;
  wc.lpszClassName := 'My App';
  if RegisterClass(wc)=0 then Exit;
  hWnd := CreateWindow(
    wc.lpszClassName, 'TEST',
    WS_OVERLAPPEDWINDOW,
    CW_USEDEFAULT, CW_USEDEFAULT,
    CW_USEDEFAULT, CW_USEDEFAULT,
    0, 0, HInstance, nil);
  if hWnd=0 then Exit;
  ShowWindow(hWnd, SW_SHOWNORMAL);
  while GetMessage(MSG, 0, 0, 0) do begin    TranslateMessage(MSG);
    DispatchMessage(MSG);
  end;
  Halt(MSG.wParam);
end.
只是一个例子^_^

Answer 6

楼上只是用API做个窗体，和楼主的问题没关吧~
PASCAL中好像有个Graphic单元，里面就有相关的初始化及函数等函数。

Answer 7

调用DOS中断INT 10H看看.呵呵/

Answer 8

有个专门见Pascal的网站，里面的教程里有。
还有完整的库文件
要的话给我发Mail：ka52◎etang。com

Answer 9

《TurboPascal大全》市场上也买不到了，我有一本，已经发黄的要掉渣了，可是我还是当九阴真经般的收藏着

Answer 10

哈，找BP5-7的Demo，里面有一个图形的演示程序，很全的。
不过编译需要很多对应的BGI文件，如果你的BP全的话，应该都有的。
BP7到处都可以下到

Answer 11

调用DOS中断INT 10H看看.呵呵/各位别见笑哈。我就干过这种事情。。练习线上汇编。就在代码里去调用 中断。呵呵。。我还记得很清楚。10H没调。我调的是    21H。哈哈。结果当然是。不说了。晕菜的很呢。

Answer 12

为什么还写DOS方面的东西呢?   有用外吗?