SoloCodigo

Se me cambia todo el tiempo la pagina de inicio predeterminada .
Probe con Ad-Ware pero este no encontro nada
Mi duda es ¿ Como puedo solucionarlo?
Espero una ayuda , Igualmente MUCHAS GRACIAS

Hola SoloCodigo me gustaria proponer un foro para poder hacer consulta sobre como se pueden tratar algunos virus que los antivirus como Norton o MacAffee no los identifica y que es lo que se puede hacer para prevenirlos entre otras cosas.
  Me faltaba tambien seria muy importante incluir ahi no solo los virus sino los diversos fallos que suelen tener los sist.op. que parecieran que son virus y no lo son.
 Desde ya gracias.

DreiverOp
               : Es justo la manera que deseaba obtener (La de la memoria de visualizacion)  pero yo hacia que un puntero ( pointer ) apuntara ayi y la verdad que algo no me resultaba . Voy a probar de tu manera a ver que pasa. Tambien aqui te paso una funcion que identifica la posicion de la memoria de visualizacion segun el monitor que se utilize ( colr, b/n [es un poco raro que alguien tenga un monitor monocromo {b/n} pero nunca se sabe]).


Espero que sea util de algo .
  Gracias por pasarme el codigo la verdad que me resulto de lo más util.

.B.  :
       De la manera que me pasaste habia pensado pero se complica en la parte de hacer recuadros en la pantalla y de no pasarce da la misma.

Eso esta bien
El programa que descargaste es otro , no saca letras al azar.
Si quieres que lo haga tendras que investigar como funciona y tratar de mezclar los el que te funciona y el otro .  
  Trata de hacerlo si no te sale por mi no hay problema te lo modifico pero me gustaria mas que por lo menos intentes tu hacerle alguna vuelta y contamesi no te ayudo con todo gusto.
   No dudes en avisarme.
   Suerte y a programar.

 No es para tanto yo estoy desde hace un año con pascal y de este modo fui aprendiendo experiencias de otros ( me lei 7 libros ... pero...  sin  experiencias de otros no es lo mismo). Asi que aquel que este leyendo este mensaje ...
Por favor comparta sus conocimientos asi otros puedan aprender un poquito mas facil y rapido.
      Yo por ejemplo estoy en secundaria tecnica en el curso de quimica y no  puedo consultar a nadie mas que no sean los que participen de estas discuciones.
No creo que sea el unico con mi posicion asi que A COMPARTIR

BlackTiger  :
                   Eso lo que yo llamo  un algoritmo eficaz !

Temp Win
 Si no pones el directorio de estos archivos el Tp toma en cuenta que esta en el DIRECTORIO ACTUAL.
Si lo vas a ejecutar en otra maquina simplemente coloca en el mismo directorio que el programa el fichero que necesites .
  En mi caso es EgaVga.bgi
 Si pones el directorio ( ej C:\TP\Bgi ) y lo ejecutas en otra maquina en este directorio tendra que estar este archivo sino el modo grafico no se inicia.

  Segun mi experiencia te recomiendo que no pongas nada y  ubiques en el directorio actual( donde esta El programa a ejecutar. si lo ejecutas desde el Tp
colocalo en el directorio del mismo)

Ya lo comprobe !
utilizando una pausa de 5 segundos anduvo igual en una maquina con un Athlon 1.700 GH  y otra con Pentium 750 MH

Es uno de los primero programas que hice en la unidad grafica de Turbo Pascal

espero que a alguien le sirva como ej.
La manera en que esta escrito es muy pobre ( eran mis comienzos no es para tanto che ) Ahora mejore
Necesitaran la Graph.tpu

Recomiendo  que cuando utilizes este procedimiento agreges unas lines como estas:
  const
     Do = 54 ;
     Mi  = 82.3 ;
     La = 44 ;

Estas son las frecuencias en Hz de las notas musicales mas graves.
Para obtener una octava mas alta se multiplica las constantes por 2,4,8 etc...

ej
  Mi*2 { mi de la segunda octava}
  La*4{ la de la tercera octava}
   

No tengo todas las constantes de las frecuencias de las notas musicales ahora pero
cuando las consigo las paso en esta discucion.

aqui esta el mismo programa pero utilizando recursividad y TestColor.
[Cprogram Demo;
uses Crt;
const
 Tiempo = 100; {­Modifica segun la velocidad de tu ordenador !
                En el mio anduvo BIEN.}
 Car =  #176;
var
 Control : integer;  { Lleva el control de las repeticiones }
 X,Y     : byte;     { Variables de tipo contador }
 Xi,Xf   : byte;
 Yi,Yf   : byte;

procedure InitTextMode;  {Inicia todas las variabes con sus valores}
 begin
  Randomize;
  TextMode(C80);  { Inicia modo CGA 80*25 ( casi indespensable en mi win XP)}
  Window(1,1,80,25);
  TextBackground(0);
  Textcolor(10);
  ClrScr;
  X := 1;
  Y := 1;
  Xf := 79;
  Yf := 24;
  Xi := 1;
  Yi := 1;
  Control := 1;
 end;

function Caro : char;  { Saca al azar letras de la 'A' a 'Z'}
 begin
  Caro := Chr(Random(25)+65);
 end;

procedure espiralado;       { El begin principal}
begin
 repeat
 while X < Xf do  { Aqui se comienza a dibujar la espiral}
  begin
   GotoXY(X+1,Yi);
   Write(car);
   X := X+1;
   if KeyPressed then Exit;  { Por si se presiona una tecla para el Bucle}
   Delay(Tiempo);{ Aqui es donde se hace mas lento el movimiento}
  end;
 while Y < Yf do
  begin
   Y := Y+1;
   GotoXY(Xf,Y);
   Write(car);
   if KeyPressed then Exit;
   Delay(Tiempo);
  end;
 while X > Xi do
  begin
   GotoXY(X,Yf);
   Write(car);
   X := X-1;
   if KeyPressed then Exit;
   Delay(Tiempo);
  end;
 while Y > Yi do
  begin
   GotoXY(Xi,Y);
   Write(car);
   Y := Y-1;
   if KeyPressed then Exit;
   Delay(Tiempo);
  end;
 Xi := Xi+1;  { Parte necesaria para que continue la espiral}
 Yi := Yi+1;
 Xf := Xf-1;
 Yf := Yf-1;
 TextColor(Random(15)+1);
 Control := Control+1; {Lleva el control de las repiticiones}
until  Control = 13;
 ClrScr;
 InitTextMode;
 Espiralado; { La parte recursiva}
end ;

begin
 InitTextMode;
 Espiralado;
end.

ODE]programa[/CODE]

{ La funcion 'Car' fue hecha gracias a .B. y chujkero miembros de la                  }
{pag.¡Saludos !                                                                                     }
{ El programa llena la pantalla con letras al azar de 'A' a 'Z' sigiuendo una espiral}

program Espiral;
uses Crt;
const
 
Tiempo = 1000; {­Modifica segun la velocidad de tu ordenador !
                 En el mio anduvo BIEN.}
var
 Control : integer;  { Lleva el control de las repeticiones }
 X,Y     : byte;     { Variables de tipo contador }
 Xi,Xf   : byte;
 Yi,Yf   : byte;

procedure InitTextMode;  {Inicia todas las variabes con sus valores}
 begin
  Randomize;
  TextMode(C80);  { Inicia modo CGA 80*25 ( casi indespensable en mi win XP)}
  Window(1,1,80,25);
  TextBackground(0);
  Textcolor(10);
  ClrScr;
  X := 1;
  Y := 1;
  Xf := 79;
  Yf := 24;
  Xi := 1;
  Yi := 1;
  Control := 1;
 end;

function Car : char;  { Saca al azar letras de la 'A' a 'Z'}
 begin
  Car := Chr(Random(25)+65);
 end;

begin        { El begin principal}
 InittextMode;
 repeat
 while X < Xf do  { Aqui se comienza a dibujar la espiral}
  begin
   GotoXY(X+1,Yi);
   Write(car);
   X := X+1;
   if KeyPressed then Break;  { Por si se presiona una tecla para el Bucle}
   Delay(Tiempo);{ Aqui es donde se hace mas lento el movimiento}
  end;
 while Y < Yf do
  begin
   Y := Y+1;
   GotoXY(Xf,Y);
   Write(car);
   if KeyPressed then Break;
   Delay(Tiempo);
  end;
 while X > Xi do
  begin
   GotoXY(X,Yf);
   Write(car);
   X := X-1;
   if KeyPressed then Break;
   Delay(Tiempo);
  end;
 while Y > Yi do
  begin
   GotoXY(Xi,Y);
   Write(car);
   Y := Y-1;
   if KeyPressed then Break;
   Delay(Tiempo);
  end;
 Xi := Xi+1;  { Parte necesaria para que continue la espiral}
 Yi := Yi+1;
 Xf := Xf-1;
 Yf := Yf-1;
 Control := Control+1; {Lleva el control de las repiticiones}
until  (KeyPressed) or (Control = 13); { Me parece que el
                                         KeyPressed esta demas pero ...}
 ReadLn;
end.

{UNIDAD QUE HABILITA LAS RUTINAS DE MANEJO BASICO DEL MOUSE

 Esta unidad una vez compilada puede ser invocada desde cualquier programa

 DESCRIPCION

 Se implementan 4 procedimientos a saber :

 Procedure InitMouse : Inicia el modo de manejo del mouse.

 Procedure ShowCursorMouse : Muestra el puntero del mouse.
 Procedure HideCursorMouse : Oculta el puntero del mouse.

 Procedure GetStatus_Position(Var Status, Xpos, Ypos : Word);
 Devuelve la posici¢n y el estado del mouse.

 PASOS PARA COMPILAR ESTA UNIDAD

 1) Activa el menu con el uso de la tecla [F10]
 2) Escoge la opci¢n Compile y presiona [ENTER]
 3) Selecciona la opci¢n Destination y si esta en Memory presiona [ENTER]
    para que cambie a Disk, en caso de que se encuentre en Disk, dejala
    como esta.
 4) Presiona [F9] para compilar.
}

Unit Mouse;
Interface
Var
   Mouse_Enable,
   MousePtr_Active  : Boolean;
   Buttons          : Byte;

Procedure InitMouse;
Procedure ShowCursorMouse;
Procedure HideCursorMouse;
Procedure GetStatus_Position(Var Status, Xpos, Ypos : Word);

Implementation
Uses DOS;
Const
     MouseInt = 51;
Var
     regs              : Registers;

Procedure InitMouse;
begin
     Regs.AX := 0;
     Intr(MouseInt, regs);

     if Regs.AX <> 0
        then
            begin
                 Mouse_Enable := TRUE;
                 Buttons := Regs.BX
            end
        else Mouse_Enable := FALSE;
end;

Procedure ShowCursorMouse;
begin
     Regs.AX := 1;
     Intr(MouseInt, regs);
     MousePtr_Active := TRUE
end;


Procedure HideCursorMouse;
begin
     Regs.AX := 2;
     Intr(MouseInt, regs);
     MousePtr_Active := FALSE
end;

Procedure GetStatus_Position(Var Status, Xpos, Ypos : Word);
begin
     Regs.AX := 3;
     Intr(MouseInt, regs);
     With Regs do
          begin
               Status := BX;
               Xpos   := CX;
               Ypos   := DX;
          end
end;