[Preciso de Ajuda Urgente][DELPHI]Criar/guardar ficheiros em .bat

[Warrior_Soul 0]

Eu gosta de criar um programa que ao carregar num botão cria-se um ficheiro .bat (não é virus) ex:

Criasse um ficheiro .bat com isto onde: Nome Da Pasta são escolhidos pelo o utilizador

e tambem a pass, (para mudar o nome da pasta e a pass posso usar variaveis string).(nome da pasta está escrito a verde e pass a vermelho)

conteudo:

CLS

@ECHO OFF

title Introduza uma password na pasta

if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK

if NOT EXIST CPTIG goto MDLOCKER

:CONFIRM

echo Tem a certeza que deseja bloquear esta pasta(S/N)

set/p "cho=>"

if %cho%==S goto LOCK

if %cho%==s goto LOCK

if %cho%==n goto END

if %cho%==N goto END

echo Escolha errada.

goto CONFIRM

:LOCK

ren CPTIG "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"

attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"

echo Pasta desbloqueada

goto End

:UNLOCK

echo Introduza a password

set/p "pass=>"

if NOT %pass%== 69 goto FAIL

attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"

ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" CPTIG

echo Pasta desbloqueada com sucesso

goto End

:FAIL

echo Password incorrecta

goto end

:MDLOCKER

md CPTIG

echo Pasta criada com sucesso

goto End

:End

 

Por favor ajudem me! Se der resultado ainda posto aqui no forum o Programa

[iMelo~' 18]

pode falar mais de sua duvida , nao entendi ela.