delphi shellapi

最新推荐文章于 2020-07-08 17:18:11 发布

weixin_30600503

最新推荐文章于 2020-07-08 17:18:11 发布

阅读量234

点赞数

原文链接：http://www.cnblogs.com/fuhuo/p/11156156.html

版权

uses shellapi;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ShellExecute(Handle,'open','c:\',nil,nil,Sw_Show);
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
ShellExecute(Handle,'open','d:\',nil,nil,Sw_Show);
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
ShellExecute(Handle,'open','e:\',nil,nil,Sw_Show);
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
ShellExecute(Handle,'open','f:\',nil,nil,Sw_Show);
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
ShellExecute(Handle,'open','c:\windows\system32\',nil,nil,Sw_Show);
end;

procedure TForm1.BitBtn6Click(Sender: TObject);
begin
ShellExecute(Handle,'open','C:\WINDOWS\system32\drivers\etc',nil,nil,Sw_Show);
end;

procedure TForm1.BitBtn8Click(Sender: TObject);
begin
ShellExecute(Handle,'open','cmd.exe',nil,nil,Sw_Show);
end;

procedure TForm1.BitBtn9Click(Sender: TObject);
begin
ShellExecute(Handle,'open','E:\CrackTools\Debuggers\OllySND_Portable\Snd.exe',nil,nil,Sw_Show);
end;

procedure TForm1.BitBtn10Click(Sender: TObject);
begin
ShellExecute(Handle,'open','D:\Program Files\VStart50\VStart.exe',nil,nil,Sw_Show);
end;

procedure TForm1.BitBtn11Click(Sender: TObject);
begin
ShellExecute(Handle,'open','D:\Program Files\FtpServer\FtpServer_vm.exe',nil,nil,Sw_Show);
end;

procedure TForm1.BitBtn12Click(Sender: TObject);
begin
ShellExecute(Handle,'open','D:\HA_LeapFTP\LeapFTP.exe',nil,nil,Sw_Show);
end;

procedure TForm1.BitBtn7Click(Sender: TObject);
begin
ShellExecute(Handle,'open','regedit.exe',nil,nil,Sw_Show);
end;

procedure TForm1.BitBtn13Click(Sender: TObject);
begin
ShellExecute(0, nil,'d:\soft.exe.lnk',nil,nil,SW_SHOWNORMAL);
//link方式打开

end;

转载于:https://www.cnblogs.com/fuhuo/p/11156156.html