频道分类

Delphi 调用ShellExecute打开txt文本

作者:admin 来源: 日期:2020/2/10 19:44:24 人气: 标签:

 
uses
  WinTypes, ShellAPI;

procedure OpenObject(sObjectPath: string);
begin
  ShellExecute(0, nil, PChar( sObjectPath ), nil, nil, SW_NORMAL);
end;

//调用
  OpenObject('c:\my_docs\report.txt');