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;