var INPUTFILE:file; begin AssignFile(INPUTFILE,'test.exe'); Reset(INPUTFILE,1); closefile(INPUTFILE); end; ======================================== 如果test.exe非唯讀屬性則一切正常，否則出現錯誤 但test.exe如果是在cdrom,勢必唯讀，請問有解嗎? 謝謝!

I think reset and rewrite do not support file sharing. Perhaps you should try using FileOpen function. 

引言: var INPUTFILE:file; begin AssignFile(INPUTFILE,'test.exe'); Reset(INPUTFILE,1); closefile(INPUTFILE); end; ======================================== 如果test.exe非唯讀屬性則一切正常，否則出現錯誤 但test.exe如果是在cdrom,勢必唯讀，請問有解嗎? 謝謝!

1. filetype改成textfile不要untyped 如下就可以讀readonly var INPUTFILE:textfile; 2. 若以textfile型態無法滿足需求, 那就用 FileStream讀

var fs:TFileStream;
begin
  fs:=TFileStream.create('test.exe',fmOpenRead);
  try
    fs.read(buf, count);
  ...
  finally
    fs.free;
  end;
end;

感謝william的回應. 小弟的目的在於讀取二進位檔的表頭資訊，因此恐怕無法使用FileOpen來完成，如果想由程式變更檔案屬性，在CDROM也不可行。 按理說AssignFile和Reset只是讀檔，沒道理會失敗，請前輩們指點。 謝謝!

Quoted from the Delphi help:    Warning: The default value of FileMode is 2 (Read/Write access). If this is not changed to a read-only file mode before calling Reset, attempts to open read-only files will fail. So you should set the proper FileMode (a global variable in Delphi) before calling reset.

試試這樣子:    var INPUTFILE:file; begin AssignFile(INPUTFILE,'test.exe'); FileMode := 0; {Set file access to read only } Reset(INPUTFILE,1); closefile(INPUTFILE); end; 發表人 - johnnychang 於 2003/02/27 10:19:36

thank johnnychang and thank everybody, it's OK!