测试打开文件并读取文件内容

无法复制xxxx: 文件正在被另一个人或程序使用，这种情况下怎么想办法用QT拷贝这个文件，或者读出文件内容

 

文件正在被另一个人或程序使用，这种情况下怎么想办法用Delphi拷贝这个文件，或者直接读出文件内容？

procedure TForm1.Button1Click(Sender: TObject);
var
  F: THandle;
  ABuffer: array [0..1024] of byte;
  C : integer;
begin
  F := FileOpen('C:\Users\kk\Documents\Fichiers Outlook\Mon fichier de données Outlook(1).pst', fmOpenRead or fmShareDenyNone);
  FillChar(ABuffer, SizeOf(ABuffer), 0);
  if (F<>0) and (F<> INVALID_HANDLE_VALUE) then
  begin
    C:= System.SysUtils.FileRead(F, ABuffer, SizeOf(ABuffer));
    if C=SizeOf(Abuffer) then
      ShowMessage('ok')
    else
      ShowMessage('fail')
  end;
end;

[深圳]JOE 主要是找句柄 找到就可以随便处理
想读取全部内容很容易 打开的文件的句柄
内部是调用 createfile zwcreatefile打开文件 只要找到对应的打开文件的句柄就好了

参考特殊方法：

http://blog.csdn.net/mydo/article/details/3266703