Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- =====================================================================================================================
- DECLARAR API NA USES => shellApi;
- =====================================================================================================================
- ShellExecute(Handle,'open','https://translate.google.com/ ', '',nil,0); <= COMANDO LINK BUTTON DELPHI
- =====================================================================================================================
- /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- =====================================================================================================================
- WinExec ('C:\Program Files (x86)\NOME_DA_PASTA\NOME_DO_ARQUIVO.exe',SW_SHOW); <= COMANDO ARQUIVO EXE BUTTON DELHPI
- =====================================================================================================================
- /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- =====================================================================================================================
- COMANDO DO TIMER SPLASH: TUTORIAL => http://www.youtube.com/watch?v=c0EzpSi4xNA
- =====================================================================================================================
- ProgressBar1.Position := ProgressBar1.Position + 2;
- If (ProgressBar1.Position = 100) then
- Begin
- timer1.Enabled := False;
- Form1.Destroy;
- Form2.Show;
- =====================================================================================================================
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement