BBAT BATCH ON-LINE
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Connexion

Récupérer mon mot de passe

Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

Le record du nombre d'utilisateurs en ligne est de 29 le Mer 29 Jan 2020, 10:53
Derniers sujets
» [StackOverflow] Batch to Create video .srt Subtitles with right timing
[EXE/bat] DpScript Código Delphi interpreter EmptyVen 25 Déc 2015, 14:17 par Sachadee

» [devellopez] Formater une date en ligne Dos
[EXE/bat] DpScript Código Delphi interpreter EmptyVen 31 Juil 2015, 10:40 par Dylan Gadacha

» Un super Tuto Batch de IniTScreen
[EXE/bat] DpScript Código Delphi interpreter EmptyLun 08 Juin 2015, 12:16 par InitScreen

» Un code MATRIX sympa
[EXE/bat] DpScript Código Delphi interpreter EmptyDim 12 Avr 2015, 14:27 par Sachadee

» [BAT/EXE] DresolChange changer la sesolution de l´écran
[EXE/bat] DpScript Código Delphi interpreter EmptyMar 17 Mar 2015, 09:12 par Sachadee

» [EXE/bat] DpScript Código Delphi interpreter
[EXE/bat] DpScript Código Delphi interpreter EmptyJeu 12 Mar 2015, 15:48 par Sachadee

» Externo SaveDlg com 2 kb
[EXE/bat] DpScript Código Delphi interpreter EmptyDim 15 Fév 2015, 12:20 par Sachadee

» présentation
[EXE/bat] DpScript Código Delphi interpreter EmptyDim 15 Fév 2015, 12:14 par Sachadee

» [developpez.com] Transcodage fichier vidéo si fichier déposé
[EXE/bat] DpScript Código Delphi interpreter EmptyMar 03 Fév 2015, 01:02 par Sachadee

Flux RSS



Flag Counter
Partenaires
-10%
Le deal à ne pas rater :
PC Portable Gamer ASUS TUF Gaming F15 | 15,6″ FHD IPS 144 Hz – ...
599.99 € 669.99 €
Voir le deal

[EXE/bat] DpScript Código Delphi interpreter

2 participants

Aller en bas

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

Message 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.
Delmar Grande
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

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

Message par Sachadee Jeu 12 Mar 2015, 15:48

Merci Delmar !

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

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

https://bbat.forumeiro.com

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

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