Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

celiacon

Criar Directorias em freepascal com a consola linux

Recommended Posts

celiacon
PROGRAM criadir(input, output);
VAR nomdir:STRING;
   dir:STRING;
   usr:STRING;
BEGIN
   WRITE('Escreva o nome do utilizador  ou root ->');
   READLN(usr);
   WRITE('Escreva o nome da directoria a criar ->');
   READLN(nomdir);
   WRITE('[',usr,'@localhost:~]$ mkdir ',nomdir);
   READLN(dir);
   WRITE ('[',usr,'@localhost:~]$ ls -l');
   READLN;
END.

Share this post


Link to post
Share on other sites
pwseo

celiacon,

"Limpa" um pouco o teu post... Para começar, coloca o código entre tags code, e não utilizes essas maiúsculas todas... E depois, explica qual é a dúvida :)

Share this post


Link to post
Share on other sites
celiacon

A dúvida é que embora o código compile com sucesso, não faz nada!

Isto é de facto não consigo criar directorias.... mais para teremos de aceder à shell e solicitar a informação de quem está logado para que funcione?

Como posso proceder...

Share this post


Link to post
Share on other sites
pwseo

Estás a confundir as coisas.

O que tu estás a fazer nesse programa é simplesmente mostrar texto. Para criares directorias tens que executar programas que criam directorias. Isto é uma dúvida básica que me diz que precisas de investir bastante em aprender a programar, antes de mais nada.. conhecer a linguagem, etc.

Quanto à tua dúvida:

ret := fpSystem('mkdir ' + nomedir);

assumindo que nomedir é uma string com o nome da directoria a criar, e ret um longint.

A função fpSystem devolve um longint com o valor de retorno do comando executado, para poderes saber se funcionou ou não (0 se funcionou, outro valor se tiver dado erro, penso eu).

PS.: O meu pascal está enferrujado, e nunca cheguei a usar freepascal decentemente, por isso se alguém experiente vir isto, por favor corrija :)

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.