delphi中如何打开其他文件

Posted 2023-03-05

delphi中如何打开其他文件(比如exe文件)，因为本人是新手，所以请告诉我详细的代码，并把需要什么东西（比如要Label）都告诉我，本人万分感激！
Label只不过是个举例而已，就是让各位高手告诉我要用到什么东西而已

参考技术A *************************************
函数描述： 该函数实现打开一个文件
参数为要打开的文件的路径，任何注册的文件类型，exe,txt等
该函数需要 ShellAPI支持，也就是在uses中增加uses shellapi
*************************************
Function File_ShellOpen(Const aFile: String): Boolean;
Var
Tmp: Array[0..100] Of char;
Begin
Result := ShellExecute(Application.Handle,
'open', StrPCopy(Tmp, aFile), Nil, Nil, SW_NORMAL) > 32;
End;

//调用打开其他文件函数
procedure TForm1.Button1Click(Sender: TObject);
begin
File_ShellOpen('c:\qq.exe'); //
end; 参考技术B unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,shellapi;

type a
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
Private declarations
public
Public declarations
end;

var
Form1: TForm1;

implementation

$R *.dfm

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Application.Handle, nil, 'C:\WINDOWS\NOTEPAD.EXE'+#0, nil, nil, SW_SHOWNORMAL);//
end;

end.
------------------------------------------------------
只需要添加一个按钮button1

不懂+ 97673435本回答被提问者采纳 参考技术C uses ShellAPI;

ShellExecute(Handle,'open','exe路径',nil,nil,SW_SHOW); 参考技术D 用代码，按钮.LABEL等材料在DELPHI打开EXE文件？有没有搞错？

风 牛 马啊