DirectX, OpenGl в Turbo Pascal

[_-Re@l-_]

Можно ли в принципе использовать OpenGl или DirectX в Turbo Pascal?

[Grag]

Программы, созданные в ТП работают под DOS...

[_-Re@l-_]

Это я знаю.. А в Делфи же есть вроде встроенный OpenGl?

[_-Re@l-_]

И ещё: как в TP загрузить картинку из файла(16-цветную, разумеется)?

[Grag]

Сообщение от _-Re@l-_

Это я знаю.. А в Делфи же есть вроде встроенный OpenGl?

А причем здесь Delphi, если речь идет о TurboPascal'е?
И о какой версии Delphi тогда ведешь речь?

[_-Re@l-_]

О Delphi 7. Да просто я собирался переходить с Turbo Pascal на Delphi, но вот передумал

[_-Re@l-_]

Grad, я знаю, что в паскале можно использовать мышь, у меня раньше даже был такой модуль, позволяющий её использовать(причем был нормальный курсор), но после переустановки системы(мне пришлось форматнуть винчестеры) у меня ничего не осталось. Может, у тебя есть что-то подобное?

[Grag]

Может где-то и есть в старых книгах Фаронова, да и то в печатном варианте... В электронном варианте вряд ли найду...

[_-Re@l-_]

а, вот , я нашёл в интернете:
unit mouse;

interface

const
MB_LEFT = 1;
MB_RIGHT = 2;
MB_MIDDLE = 4;

type
tPoint = record
x, y : integer
end;
tMouseState = record
loc:tPoint;
but:integer
end;

function ResetMouse:integer;
procedure ShowMouse;
procedure HideMouse;
procedure GetMouseState (var s:tMouseState);
procedure MoveMouseCursor (p :tPoint);
procedure SetMouseVert (max, min : integer);
procedure SetMouseHorz (max, min : integer);

implementation

function ResetMouse:integer;assembler;
asm
xor ax, ax
int 33h
end;

procedure ShowMouse;assembler;
asm
mov ax, 1
int 33h
end;

procedure HideMouse;assembler;
asm
mov ax, 2
int 33h
end;

procedure GetMouseState;assembler;
asm
mov ax, 3
int 33h
push es
push di
les di, dword ptr s
mov es:[di], cx
mov es:[di+2], dx
mov es:[di+4], bx
pop di
pop es
end;

procedure MoveMouseCursor;assembler;
asm
mov ax, 4
mov cx, p.x
mov dx, p.y
int 33h
end;

procedure SetMouseVert;assembler;
asm
mov ax, 8
mov cx, min
mov dx, max
int 33h
end;

procedure SetMouseHorz; assembler;
asm
mov ax, 7
mov cx, min
mov dx, max
int 33h
end;

end.