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:
Adicione esse Codigo no Button 1:
Código:
Depois Adicione esse Codigo no Button 2:
Código:
No Button 3 adicione esse codigo:
Código:
No Button 4 adicione isso:
Código:
Adicione esse codigo no Button 5:
Código:
No Button 6 adicione isso:
Código:
Depois Adicione esse codigo no Button 7:
Código:
No Button 8 adicione esse codigo:
Código:
E depois adicione esse codigo no Button 9:
Código:
E por Ultimo no Button 10 adicione isso:
Código:
Scan
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
- Anexos
- soucer utilitarios.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (419 Kb) Baixado 0 vez(es)