uses ShellAPI;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(0, 'open', 'G:\lxpbuaaSoft\San9LoginPrsn1.01\pLgnPrsn.exe', nil, nil, SW_SHOW);
end;

————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

shellexecute(handle,nil,pchar('http://'+e_address),nil,nil,SW_SHOWNORMAL);
winexec;

目录应该是 不要指定  而固定在光盘里的   可是不一定在 G 盘  或者 E 盘 
而应该在我的光盘里的

网络上这种自运行程序的制作方法多的是，用Google查一下吧！

WinExec

你要作安装程序吗？可以用ｉｎｓｔａｌｌｓｈｉｅｌｄ的脚本，ｓｃｒｄｉｒ是你的光盘的目录

ShellExecute(0, 'open', ’这里你可以取出程序运行的路径再动态添加以下', nil, nil, SW_SHOW);


这样 ParamStr（0）返回程序自身位置比方c:\aa\aaaaa\a.exe
ExtractFilePath(c:\aa\aaaaa\a.exe)就是路径了 c:\aa\aaaaa\
然后你再改一下c:\aa\aaaaa\b.exe 让他执行


：）没有测试

var x:integer;
driver:pchar;
begin
driver:='f:\';
x := GetDriveType(driver);
Case x of
2: Label1.Caption := '该驱动器是可移动驱动器';
3: Label1.Caption := '该驱动器是固定驱动器';
4: Label1.Caption := '该驱动器是网络驱动器';
5: Label1.Caption := '该驱动器是CD-ROM驱动器';
6: Label1.Caption := '该驱动器是虚拟驱动器';
Else Label1.Caption := '该驱动器无效';
End;
end;