Открытие файла программой. Pascal
Добавлено: 31 янв 2007, 18:40
Можно ли сделать так, чтобы созданной в Паскале программой открывался файл? Например, если ты помнишь, somewhere, ты мне написал программу BMP - просмотрщика, вот там в последней строке написано так
Вот здесь переменной F задаётся файл nissan_skyline.bmp , а можно ли сделать так, чтобы строке dir присваивался путь к выбранному файлу?
Ну... чтобы картинки твоей прогой можно было смотреть.
И ещё, как добавить свою иконку в программу
Код: Выделить всё
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.
Ну... чтобы картинки твоей прогой можно было смотреть.
И ещё, как добавить свою иконку в программу