//下面程序的目的是直接读取光盘上的内容
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 的值永远是零,大家看看这是什么原因?
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 的值永远是零,大家看看这是什么原因?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货