如何打开C:/Windows/System/Shell.dll文件?(50分)

  • 主题发起人 主题发起人 seven_918
  • 开始时间 开始时间
S

seven_918

Unregistered / Unconfirmed
GUEST, unregistred user!
我想在程序中打开C:/Windows/System/Shell.dll文件,但是试了几种方法都不行,如下
一、FileStream
var
fStream: TFileStream;
begin
fStream := TFileStream.Create('C:/Windows/System/Shell.dll', fmOpenRead);
//到这里就出现EFOpenError错误
end;
二、file of Byte
var
f: file of Byte;
begin
AssignFile(f, 'C:/Windows/System/Shell.dll');
ReSet(f);
//到这里就出现EInOutError错误
end;
三、CreateFile
var
hFile: Cardinal;
bRead: Byte;
dwBytesRead: DWord;
begin
hFile := CreateFile('C:/Windows/System/Shell.dll', GENERIC_READ,
0, Nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
if hFile <> 0 then
begin
if ReadFile(hFile, bRead, SizeOf(Byte), dwBytesRead, Nil) then
//这里读取返回False
ShowMessage(IntToStr(bRead));
end;
end;
我不知道是什么原因,希望大家帮帮忙!谢先!!!
 
fStream := TFileStream.Create('C:/Windows/System/Shell.dll', fmOpenRead or fmShareDenyNone);
 
接受答案了.
 
后退
顶部