Форум программистов [Powered by Invision Power Board]

Код


var
  Ch: Byte;
  F: File of Byte;
  shFileName: string;
begin
 shFileName := PChar('C:\Изображение.png');
 AssignFile(F, shFileName); //связываем файловую переменную с файлом
 {$I-} Reset(F); {I+}       //пытаемся открыть файл
   if ioresult = 0 then     //если файл открылся, начинаем чтение
    begin
     Seek(F, $00000000);    //находим адрес байта в файле
     BlockRead(F, Ch, 1);   

     //далее что-то делаем с ним

     CloseFile(F);          // закрываем файл
   end;
end;