[EXE/bat] DpScript Código Delphi interpreter

par **Delmar Grande** Mer 11 Mar 2015, 21:36

Externo com multi funções com ele você pode pode usar códigos delphi direto no seu bat!

DpScript.exe

https://drive.google.com/file/d/0B4bu9X3c-WZqbm5GYVZ0WVQ3c2c/view?usp=sharing

exemplo de uso

DpScript.exe script.txt

Openscript.txt

Code:: var opendg:Topendialog; begin Opendg:=Topendialog.create(nil); Opendg.DefaultExt:='txt'; Opendg.Filter:='*.*'; if Opendg.execute then printf('set Patch=%s'#10,Opendg.filename); end.

ou se preferir veja os exemplos com códigos no bat.

Save-inscript.bat

Code:: { @echo off & cls ::exemplo de como setar variavel de aplicativo pascal estilo C title Meu Savedialog echo Savedialog set script=%~0 for /f "tokens=*" %%i in ('DpScript.exe "%script%"') do %%i if not "%Patch%" == "" ( ( echo Delmar Grande echo DbatchSript forum )>"%Patch%" ) echo caminho : "%Patch%" echo Continua... echo Continua... echo Continua... pause ::exit } {Seu codigo delphi aqui em baixo} program SaveDlg; var Savedg:TSavedialog; begin Savedg:=TSavedialog.create(nil); Savedg.DefaultExt:='txt'; Savedg.Filter:='*.*'; if Savedg.execute then printf('set Patch=%s'#10,Savedg.filename); end.

Open-inscript.bat

Code:: { @echo off & cls ::exemplo de como setar variavel de aplicativo pascal estilo C title Meu Opendialog echo Opendialog set script=%~0 for /f "tokens=*" %%i in ('DpScript.exe "%script%"') do %%i echo caminho : "%Patch%" echo Continua... echo Continua... echo Continua... pause ::exit } {Seu codigo delphi aqui em baixo} program OpenDlg; var Opendg:Topendialog; begin opendg:=Topendialog.create(nil); Opendg.DefaultExt:='txt'; Opendg.Filter:='*.*'; if Opendg.execute then printf('set Patch=%s'#10,Opendg.filename); end.

InputBox-inscript.bat

Code:: { @echo off & cls ::exemplo de como setar variavel de aplicativo pascal estilo C title Meu InputBox echo InputBox set script=%~0 for /f "tokens=*" %%i in ('DpScript.exe "%script%"') do %%i echo Texto digitado : "%Inputtexto%" echo Continua... echo Continua... echo Continua... pause ::exit } {Seu codigo delphi aqui em baixo} program OpenDlg; var value : string; begin repeat value := InputBox('Teste do programa', 'Por favor entre com o texto!', 'Delmar'); until value <> ''; printf('set Inputtexto=%s'#10,value); end.

MessageDlg-inscript.bat

Code:: { @echo off & cls ::exemplo de como setar variavel de aplicativo pascal estilo C title Meu MessageDlg echo MessageDlg set script=%~0 for /f "tokens=*" %%i in ('DpScript.exe "%script%"') do %%i echo Botao precionado : "%mgb%" echo Continua... echo Continua... echo Continua... pause ::exit } {Seu codigo delphi aqui em baixo} program OpenDlg; var buttonSelected : Integer; begin buttonSelected := MessageDlg('O que deseja',mtConfirmation, [mbYes,mbAll,mbCancel], 0); if buttonSelected = mrYes then printf('set mgb=%s'#10,'sim'); if buttonSelected = mrAll then printf('set mgb=%s'#10,'todos'); if buttonSelected = mrCancel then printf('set mgb=%s'#10,'cancelado'); end.

par **Sachadee** Jeu 12 Mar 2015, 15:48

Merci Delmar !

[EXE/bat] DpScript Código Delphi interpreter 505557867

Re: [EXE/bat] DpScript Código Delphi interpreter