Код: Выделить всё
begin
dir:='C:/nissan_skyline.bmp';
Assign(F,dir);
Reset(F,1);
Blockread(F, BMPHeader, 64);
BMPWidth := BMPHeader[9];
BMPHeight := BMPHeader[11];
BMPSize := FileSize(F);
VESA_SetVideoMode($15);
For X:=0 to BMPHeight-1 do
begin
Seek(F, BMPSize-(x+1)*BMPWidth*3);
BlockRead(F, Buffer, BMPWidth*3);
VESA_PutScanLine(0, X, BMPWidth*3, ofs(Buffer));
end;
repeat until keypressed;
VESA_RestoreOldVideoMode;
end.
Ну... чтобы картинки твоей прогой можно было смотреть.
И ещё, как добавить свою иконку в программу