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

RicardoTeixeira25

ajuda

2 mensagens neste tópico

Boas a todos neste topico fui esperimentar o tal "Virus",e vi que nao da para fechar na cruz,temos de ir ao gestor de tarefas e forçar a fechar,a minha duvida e a seguinte como fazer isso??? pois fiz um programa praticamente identico e consigo fechalo sera que e do apito?? tentei por o apito chr(7) mas aparece-me uma imagem

http://www.portugal-a-programar.pt/index.php?showtopic=17598

vou por aqui o meu programinha:

program hihi;

uses crt;

var a:integer;

begin

Clrscr;

a:=0;

for a:= 0 to 100 do

begin

  textcolor(12);

  delay(1000);

  gotoxy(27,10);writeln('A FORMATAR A UNIDADE C:\ ',a,'%');

  delay (1000);

  gotoxy(33,15);Writeln('ERRO NO SISTEMA');

  delay(1000);

  gotoxy(22,5);writeln('VAI PERDER TODOS OS SEUS DADOS PESSOAIS');

  delay(1000);

  gotoxy(30,20);Writeln('By: Ricardo Teixeira ',chr(11));

  end;

end.

uso o Dev-Pascal

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Pelo que pesquisei não havia nenhuma maneira de impedir o programa de ser fechado.

O que pode ser feito é uma condição infinita, o que impede o programa de fechar e bloqueia algumas vezes, porém eu descobri (por necessidade de parar loops infinitos para não perder código  :confused:) que se clicares muitas vezes seguidas no botão estes programas de pascal conseguem ser fechados sem aceder ao task manager

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora