Вот пример. Мой. Тут по идее всё должно работать, а именно: программа должна завершиться.
program testimage;
uses wingraph,wincrt;
const
UpKey= #72;
LtKey= #75;
RtKey= #77;
DnKey= #80;
EscKey= #27;
EnterKey= #13;
var menumod,i,j:integer;
key:char;
procedure LoadBMP(x,y:integer);
var f:file; bitmap:pointer; size:longint;
begin
{$I-} Assign(f,'bgmain.bmp'); Reset(f,1); {$I+}
if (IOResult <> 0) then Exit;
size:=FileSize(f);
GetMem(bitmap,size);
BlockRead(f,bitmap^,size);
Close(f);
PutImage(x,y,bitmap^,NormalPut);
FreeMem(bitmap);
end;
begin
i := detect;
InitGraph(i,j,'');
LoadBMP(0,0);
menumod:=1;
while menumod = 1 do
begin
delay(10);
if CloseGraphRequest then
menumod:=0;
if keypressed then
begin
key:=readkey;
if key = EscKey then
menumod:=0;
end;
end;
closegraph;
end.
Сообщение отредактировано: Anonimys -