在Delphi 中写出打开文件对话框，选择一个记事本文件，并调用记事本程序打开该文件的代码。
1个回答
展开全部
单元接口引用shellapi;
procedure TForm1.Button1Click(Sender: TObject);
var
name,path : string;
begin
if opendialog1.Execute then
begin
name := extractfilename(opendialog1.FileName);
path := extractfiledir(opendialog1.FileName);
ShellExecute(handle, nil, pchar(name), nil, pchar(path),SW_SHOW) ;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
name,path : string;
begin
if opendialog1.Execute then
begin
name := extractfilename(opendialog1.FileName);
path := extractfiledir(opendialog1.FileName);
ShellExecute(handle, nil, pchar(name), nil, pchar(path),SW_SHOW) ;
end;
end;
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
TableDI
2024-07-18 广告
仅需3步!不写公式自动完成Excel vlookup表格匹配!Excel在线免，vlookup工具,点击65步自动完成表格匹配,无需手写公式,免费使用!...
点击进入详情页
本回答由TableDI提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
