怎么按照EDIT存储的路径打开某个图片

NEEZA哪吒 2020-11-10 06:36:11
例如在EDIT1中输入的是 C:\001.jpg

我想点击按钮,则打开这个文件,不是在DELPHI中打开,而是通过WINDOWS默认的方式打开。
...全文
177 6 打赏 收藏 举报
写回复
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
tanqth 2020-11-12
引用 4 楼 NEEZA哪吒 的回复:
[quote=引用 1 楼 tanqth 的回复:][quote=引用 楼主 NEEZA哪吒 的回复:]例如在EDIT1中输入的是 C:\001.jpg 我想点击按钮,则打开这个文件,不是在DELPHI中打开,而是通过WINDOWS默认的方式打开。

uses
  SHELLAPI;

procedure TForm8.Button1Click(Sender: TObject);
begin
  ShellExecute(handle,'open',PWideChar(Edit1.Text),'','',SW_SHOWNORMAL);
end;

[/quote] 错误 [Error] U_Main.pas(7164): Incompatible types: 'WideChar' and 'Char' [Fatal Error] M001.dpr(18): Could not compile used unit 'U_Main.pas'[/quote] 那是数据类型不正确,你把WideChar改可Char就可以了。估计你用的是低版本的DELPHI。
  • 打赏
  • 举报
回复
NEEZA哪吒 2020-11-12
引用 1 楼 tanqth 的回复:
[quote=引用 楼主 NEEZA哪吒 的回复:]例如在EDIT1中输入的是 C:\001.jpg 我想点击按钮,则打开这个文件,不是在DELPHI中打开,而是通过WINDOWS默认的方式打开。

uses
  SHELLAPI;

procedure TForm8.Button1Click(Sender: TObject);
begin
  ShellExecute(handle,'open',PWideChar(Edit1.Text),'','',SW_SHOWNORMAL);
end;

[/quote] 错误 [Error] U_Main.pas(7164): Incompatible types: 'WideChar' and 'Char' [Fatal Error] M001.dpr(18): Could not compile used unit 'U_Main.pas'
  • 打赏
  • 举报
回复
NEEZA哪吒 2020-11-12
我在研究研究吧,谢谢,我是DELPHI 7老版本,
  • 打赏
  • 举报
回复
tanqth 2020-11-11
引用 2 楼 NEEZA哪吒 的回复:
[quote=引用 1 楼 tanqth 的回复:][quote=引用 楼主 NEEZA哪吒 的回复:]例如在EDIT1中输入的是 C:\001.jpg 我想点击按钮,则打开这个文件,不是在DELPHI中打开,而是通过WINDOWS默认的方式打开。

uses
  SHELLAPI;

procedure TForm8.Button1Click(Sender: TObject);
begin
  ShellExecute(handle,'open',PWideChar(Edit1.Text),'','',SW_SHOWNORMAL);
end;

[/quote] 运行通不过呢[/quote] 怎么会呢,我是测试过的。你不通有没有什么错误提示啊。
  • 打赏
  • 举报
回复
NEEZA哪吒 2020-11-11
引用 1 楼 tanqth 的回复:
[quote=引用 楼主 NEEZA哪吒 的回复:]例如在EDIT1中输入的是 C:\001.jpg 我想点击按钮,则打开这个文件,不是在DELPHI中打开,而是通过WINDOWS默认的方式打开。

uses
  SHELLAPI;

procedure TForm8.Button1Click(Sender: TObject);
begin
  ShellExecute(handle,'open',PWideChar(Edit1.Text),'','',SW_SHOWNORMAL);
end;

[/quote] 运行通不过呢
  • 打赏
  • 举报
回复
tanqth 2020-11-10
引用 楼主 NEEZA哪吒 的回复:
例如在EDIT1中输入的是 C:\001.jpg 我想点击按钮,则打开这个文件,不是在DELPHI中打开,而是通过WINDOWS默认的方式打开。

uses
  SHELLAPI;

procedure TForm8.Button1Click(Sender: TObject);
begin
  ShellExecute(handle,'open',PWideChar(Edit1.Text),'','',SW_SHOWNORMAL);
end;

  • 打赏
  • 举报
回复
相关推荐
发帖
GAME,图形处理/多媒体
加入

1176

社区成员

Delphi GAME,图形处理/多媒体
社区管理员
  • GAME,图形处理/多媒体社区
申请成为版主
帖子事件
创建了帖子
2020-11-10 06:36
社区公告
暂无公告