//下面程序的目的是直接读取光盘上的内容
procedure TForm1.Button1Click(Sender: TObject);
var
  FileStream:TFileStream;
  FileName:string;
  PwordStyle:byte;
begin
  FileName := '\\.\F:';   //F为光盘盘符
  FileStream:=TFileStream.Create(FileName,fmOpenRead  or fmShareDenyNone);
  FileStream.Position := 300;
  edit1.Text := inttostr(FileStream.Position);
  FileStream.Read(PwordStyle,sizeof(PwordStyle));
  edit2.Text := inttostr(PwordStyle);
  filestream.Free;
end;
end.程序在 Windows2000/XP 下运行结果正确。
程序在 Windows2003下运行结果不正确,edit1.text 的值永远是零,大家看看这是什么原因?