请帮我看看这个函数，可以编译，但运行完会报错。高手解决300分送 ( 积分: 300 )

huguozhi · 2005-11-17

function FilediskMount(DeviceNumber: String; DriveLetter: String; FileName: PChar; CdImage: Boolean): Word; var  Device: THandle;  DeviceName: String;  VolumeName: String;  BytesReturned: DWord;  OpenFileInformation: OPEN_FILE_INFORMATION;  IOCTL_FILE_DISK_OPEN_FILE: DWord; begin  VolumeName := '//./'+DriveLetter;  Device := CreateFile(     Pchar(VolumeName),     GENERIC_READ or GENERIC_WRITE,     FILE_SHARE_READ or FILE_SHARE_WRITE,     nil,     OPEN_EXISTING,     FILE_FLAG_NO_BUFFERING,     0     );  if Device <> INVALID_HANDLE_VALUE then  begin    messagebox(0,'错误１！','出错',48);    Exit;  end;  if CDImage then     DeviceName := DEVICE_DIR_NAME+DEVICE_BASE_NAME+DEVICE_BASE_NAME+'Cd'+DeviceNumber  else     DeviceName := DEVICE_DIR_NAME+DEVICE_BASE_NAME+DEVICE_BASE_NAME+DeviceNumber;  if not (DefineDosDevice(DDD_RAW_TARGET_PATH, Pchar(DriveLetter), Pchar(DeviceName))) then  begin    messagebox(0,'盘符已在使用！','出错',48);    Exit;  end;  Device := CreateFile(        Pchar(VolumeName),        GENERIC_READ or GENERIC_WRITE,        FILE_SHARE_READ or FILE_SHARE_WRITE,        nil,        OPEN_EXISTING,        FILE_FLAG_NO_BUFFERING,        0       &nbsp

;  if Device = INVALID_HANDLE_VALUE then  begin    DefineDosDevice(DDD_REMOVE_DEFINITION, Pchar(DriveLetter), nil);    messagebox(0,'错误２！','出错',48);    Exit;  end;  //Allocmem(Sizeof(OpenFileInformation)+StrLen(FileName)+4);  Zeromemory(@OpenFileInformation,Sizeof(OPEN_FILE_INFORMATION)+Length(FileName) + 4);  StrPCopy(OpenFileInformation.FileName,'/??/'+FileName);  OpenFileInformation.FileNameLength := StrLen(OpenFileInformation.FileName);  OpenFileInformation.Read_Only := False;  IOCTL_FILE_DISK_OPEN_FILE := CTL_CODE(FILE_DEVICE_FILE_DISK, $800, METHOD_BUFFERED, FILE_READ_ACCESS or FILE_WRITE_ACCESS);  if not (DeviceIoControl(     Device,     IOCTL_FILE_DISK_OPEN_FILE,     @OpenFileInformation,     Sizeof(OpenFileInformation)+ OpenFileInformation.FileNameLength - 1,     nil,     0,     BytesReturned,     nil     ))  then  begin    DefineDosDevice(DDD_REMOVE_DEFINITION, Pchar(DriveLetter), nil);    messagebox(0,'错误３！','出错',48);    Exit  end;  //ReallocMem();  CloseHandle(Device); end; 以上函数可以编译通过，但执行会报错误，好像是指针没有释放。请高手解决。

huguozhi · 2005-11-17

function FilediskMount(DeviceNumber: String; DriveLetter: String; FileName: PChar; CdImage: Boolean): Word; var  Device: THandle;  DeviceName: String;  VolumeName: String;  BytesReturned: DWord;  OpenFileInformation: OPEN_FILE_INFORMATION;  IOCTL_FILE_DISK_OPEN_FILE: DWord; begin  VolumeName := '//./'+DriveLetter;  Device := CreateFile(     Pchar(VolumeName),     GENERIC_READ or GENERIC_WRITE,     FILE_SHARE_READ or FILE_SHARE_WRITE,     nil,     OPEN_EXISTING,     FILE_FLAG_NO_BUFFERING,     0     );  if Device <> INVALID_HANDLE_VALUE then  begin    messagebox(0,'错误１！','出错',48);    Exit;  end;  if CDImage then     DeviceName := DEVICE_DIR_NAME+DEVICE_BASE_NAME+DEVICE_BASE_NAME+'Cd'+DeviceNumber  else     DeviceName := DEVICE_DIR_NAME+DEVICE_BASE_NAME+DEVICE_BASE_NAME+DeviceNumber;  if not (DefineDosDevice(DDD_RAW_TARGET_PATH, Pchar(DriveLetter), Pchar(DeviceName))) then  begin    messagebox(0,'盘符已在使用！','出错',48);    Exit;  end;  Device := CreateFile(        Pchar(VolumeName),        GENERIC_READ or GENERIC_WRITE,        FILE_SHARE_READ or FILE_SHARE_WRITE,        nil,        OPEN_EXISTING,        FILE_FLAG_NO_BUFFERING,        0       &nbsp

;  if Device = INVALID_HANDLE_VALUE then  begin    DefineDosDevice(DDD_REMOVE_DEFINITION, Pchar(DriveLetter), nil);    messagebox(0,'错误２！','出错',48);    Exit;  end;  //Allocmem(Sizeof(OpenFileInformation)+StrLen(FileName)+4);  Zeromemory(@OpenFileInformation,Sizeof(OPEN_FILE_INFORMATION)+Length(FileName) + 4);  StrPCopy(OpenFileInformation.FileName,'/??/'+FileName);  OpenFileInformation.FileNameLength := StrLen(OpenFileInformation.FileName);  OpenFileInformation.Read_Only := False;  IOCTL_FILE_DISK_OPEN_FILE := CTL_CODE(FILE_DEVICE_FILE_DISK, $800, METHOD_BUFFERED, FILE_READ_ACCESS or FILE_WRITE_ACCESS);  if not (DeviceIoControl(     Device,     IOCTL_FILE_DISK_OPEN_FILE,     @OpenFileInformation,     Sizeof(OpenFileInformation)+ OpenFileInformation.FileNameLength - 1,     nil,     0,     BytesReturned,     nil     ))  then  begin    DefineDosDevice(DDD_REMOVE_DEFINITION, Pchar(DriveLetter), nil);    messagebox(0,'错误３！','出错',48);    Exit  end;  //ReallocMem();  CloseHandle(Device); end; 以上函数可以编译通过，但执行会报错误，好像是指针没有释放。请高手解决。

lichengbin · 2005-11-17

typedef struct _OPEN_FILE_INFORMATION {    LARGE_INTEGER   FileSize;    BOOLEAN         ReadOnly;    USHORT          FileNameLength;    UCHAR           FileName[1]; } OPEN_FILE_INFORMATION, *POPEN_FILE_INFORMATION; FileName你没有分配足够的内存，就使用啦，当然会出错！ 使用时应该用OPEN_FILE_INFORMATION指针，给指针分配Sizeof(OPEN_FILE_INFORMATION)+Length(FileName) + 4个字节。  Zeromemory(@OpenFileInformation,Sizeof(OPEN_FILE_INFORMATION)+Length(FileName) + 4);  StrPCopy(OpenFileInformation.FileName,'/??/'+FileName);  if not (DeviceIoControl(     Device,     IOCTL_FILE_DISK_OPEN_FILE,     @OpenFileInformation,     Sizeof(OpenFileInformation)+ OpenFileInformation.FileNameLength - 1,     nil,     0,     BytesReturned,     nil     ))

huguozhi · 2005-11-20

是的，呵呵，谢谢。 我自己解决了，但还是给你送上300分。

请帮我看看这个函数，可以编译，但运行完会报错。高手解决300分送 ( 积分: 300 )

huguozhi

Unregistered / Unconfirmed

huguozhi

Unregistered / Unconfirmed

lichengbin

Unregistered / Unconfirmed

huguozhi

Unregistered / Unconfirmed

Similar threads