Открытие файла программой. Pascal

Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду

Ответить
Аватара пользователя
Колядин Максим
Сообщения: 297
Зарегистрирован: 16 ноя 2006, 19:09
Откуда: Seattle, WA
Контактная информация:

Можно ли сделать так, чтобы созданной в Паскале программой открывался файл? Например, если ты помнишь, somewhere, ты мне написал программу BMP - просмотрщика, вот там в последней строке написано так

Код: Выделить всё

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.

Вот здесь переменной F задаётся файл nissan_skyline.bmp , а можно ли сделать так, чтобы строке dir присваивался путь к выбранному файлу?
Ну... чтобы картинки твоей прогой можно было смотреть.
И ещё, как добавить свою иконку в программу
Программист - это человек, который решает способом, который вы не понимаете, проблемы, о которых вы даже не подозревали...
Аватара пользователя
Колядин Максим
Сообщения: 297
Зарегистрирован: 16 ноя 2006, 19:09
Откуда: Seattle, WA
Контактная информация:

Уже разобрался, спасибо. paramstr
Программист - это человек, который решает способом, который вы не понимаете, проблемы, о которых вы даже не подозревали...
Ответить