Examples Delphi

How to open a drive as if it was a file.
var
FS: TFileStream;
begin
FS := TFileStream.Create('\\.\DRIVELETTER:', fmOpenRead);
try
<< YOUR CODE HERE >>
finally
FS.Free;
end;
end;