Advertisement
skeleto

Untitled

May 30th, 2015
215
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.64 KB | None | 0 0
  1. =====================================================================================================================
  2. DECLARAR API NA USES => shellApi;
  3. =====================================================================================================================
  4. ShellExecute(Handle,'open','https://translate.google.com/ ', '',nil,0); <= COMANDO LINK BUTTON DELPHI
  5. =====================================================================================================================
  6. /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  7. =====================================================================================================================
  8. WinExec ('C:\Program Files (x86)\NOME_DA_PASTA\NOME_DO_ARQUIVO.exe',SW_SHOW); <= COMANDO ARQUIVO EXE BUTTON DELHPI
  9. =====================================================================================================================
  10. /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  11. =====================================================================================================================
  12. COMANDO DO TIMER SPLASH: TUTORIAL => http://www.youtube.com/watch?v=c0EzpSi4xNA
  13. =====================================================================================================================
  14. ProgressBar1.Position := ProgressBar1.Position + 2;
  15. If (ProgressBar1.Position = 100) then
  16. Begin
  17. timer1.Enabled := False;
  18. Form1.Destroy;
  19. Form2.Show;
  20. =====================================================================================================================
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement