Connexion

Récupérer mon mot de passe

Qui est en ligne ?
Il y a en tout 2 utilisateurs en ligne :: 0 Enregistré, 0 Invisible et 2 Invités

Aucun

Le record du nombre d'utilisateurs en ligne est de 21 le Jeu 17 Oct 2013, 13:40
Derniers sujets
Flux RSS



Flag Counter
Partenaires

[EXE/bat] DpScript Código Delphi interpreter

Voir le sujet précédent Voir le sujet suivant Aller en bas

[EXE/bat] DpScript Código Delphi interpreter

Message par Delmar Grande le 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.
avatar
Delmar Grande
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 170
Data de inscrição : 14/06/2013
Localização : Devant le pc

http://dbatchscript.forumeiros.com/

Revenir en haut Aller en bas

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

Message par Sachadee le Jeu 12 Mar 2015, 15:48

Merci Delmar !


_________________
@SachaDee
avatar
Sachadee
Admin
Admin

Mensagens : 591
Data de inscrição : 04/06/2013

http://bbat.forumeiro.com

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum