[Soucer Codigo] Utilitarios CaBR

Adicione:
10 Buttons

Em Text:
Button 1 para c++ 2008
Button 2 para Directx 10
Button 3 para Framework 4.0
Button 4 para Team Viewer
Button 5 para CCleaner 3.28
Button 6 para Java Runtime
Button 7 para DirectX SDK
Button 8 para Pack de DLL
Button 9 para Winrar 4.20
Button 10 para Visitar Site

Adicione isso nas User:
Código:

Código:

uses:
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellApi, StdCtrls, sSkinProvider, sSkinManager;

Adicione esse Codigo no Button 1:
Código:

Código:

procedure TForm1.Button1Click(Sender: TObject);
begin
shellexecute(handle,'open','https://s3.amazonaws.com/dl.baixaki.com.br/programas/34992/visual-c-2008-express-editions--baixaki-32-bits.exe',nil
 ,nil,sw_shownormal);
end;

Depois Adicione esse Codigo no Button 2:
Código:

Código:

procedure TForm1.Button2Click(Sender: TObject);
begin
shellexecute(handle,'open','http://download.microsoft.com/download/A/E/7/AE743F1F-632B-4809-87A9-AA1BB3458E31/DXSDK_Jun10.exe',nil
 ,nil,sw_shownormal);
end;

No Button 3 adicione esse codigo:
Código:

Código:

procedure TForm1.Button3Click(Sender: TObject);
begin
shellexecute(handle,'open','http://download.microsoft.com/download/1/7/1/1718CCC4-6315-4D8E-9543-8E28A4E18C4C/dxwebsetup.exe',nil
 ,nil,sw_shownormal);
end;

No Button 4 adicione isso:
Código:

Código:

procedure TForm1.Button4Click(Sender: TObject);
begin
shellexecute(handle,'open','http://download.microsoft.com/download/1/B/E/1BE39E79-7E39-46A3-96FF-047F95396215/dotNetFx40_Full_setup.exe',nil
 ,nil,sw_shownormal);
end;

Adicione esse codigo no Button 5:
Código:

Código:

procedure TForm1.Button5Click(Sender: TObject);
begin
shellexecute(handle,'open','http://s3.amazonaws.com/dl.baixaki.com.br/programas/34939/java-runtime-70-update-13-baixaki-32-bits.exe',nil
 ,nil,sw_shownormal);
end;

No Button 6 adicione isso:
Código:

Código:

procedure TForm1.Button6Click(Sender: TObject);
begin
shellexecute(handle,'open','http://s3.amazonaws.com/dl.baixaki.com.br/programas/33061/ccleaner-3281913-baixaki-32-bits.exe',nil
 ,nil,sw_shownormal);
end;

Depois Adicione esse codigo no Button 7:
Código:

Código:

procedure TForm1.Button7Click(Sender: TObject);
begin
shellexecute(handle,'open','https://s3.amazonaws.com/dl.baixaki.com.br/programas/36362/teamviewer-8016901-baixaki-32-bits.exe',nil
 ,nil,sw_shownormal);
end;

No Button 8 adicione esse codigo:
Código:

Código:

procedure TForm1.Button8Click(Sender: TObject);
begin
shellexecute(handle,'open','http://www.mediafire.com/?87li2adssi8id29',nil ,nil,sw_shownormal);
end;

E depois adicione esse codigo no Button 9:
Código:

Código:

procedure TForm1.Button9Click(Sender: TObject);
begin
shellexecute(handle,'open','https://s3.amazonaws.com/dl.baixaki.com.br/programas/2657/WinRAR-slmb.exe',nil ,nil,sw_shownormal);
end;

E por Ultimo no Button 10 adicione isso:
Código:

Código:

procedure TForm1.Button9Click(Sender: TObject);
begin
shellexecute(handle,'open','http://unknowncheatshacking.blogspot.com.br/',nil ,nil,sw_shownormal);
end;

Scan