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

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;