Pruebas (no respondas a este mensaje)

[[cHackAll]]

Código Delphi [-]
Dec(egostar);

[[egostar]]

oops, eso si que dolio.

Código Delphi [-]
procedure TForm1.FormActivate(Sender: TObject);
begin
  maestro := egostar;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if egostar < maestro then
     egostar := inc(maestro,1000);
end;

Saluid OS

[[cHackAll]]

Empezado por egostar

oops, eso si que dolio.

Código Delphi [-]
procedure TForm1.FormActivate(Sender: TObject);
begin
  maestro := egostar;
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if egostar < maestro then
     egostar := inc(maestro,1000);
end;

Saluid OS

[Error] Unit1.pas(30): Incompatible types: 'Byte' and 'procedure, untyped pointer or untyped parameter'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Código Delphi [-]
Dec(egostar);
// ó
 egostar := maestro - 1000

[[egostar]]

Ouchhhh, muerto con mi propia arma......

Salud OS.

Sin la i,

[[cHackAll]]

Empezado por egostar

...Sin la i...

[[egostar]]

Empezado por cHackAll

Por esto,

Salud OS

[[cHackAll]]

jajajaja, esque es beviernes!

[[egostar]]

Empezado por roman

Bueno ya basta, no hay manera con ustedes:

Y no me digan que debo ajustar privilegios para ejecutar esta función porque- sean sinceros -todos usan cuentas de administrador (y porque no recuerdo el código de memoria )



// Saludos

Haber, optimicemos código

Código Delphi [-]
if usuario <> egostar then
  ExitWindowsEx(EWX_LOGOFF or EWX_FORCE, 0);

Salud OS.

[[cHackAll]]

Momento, tal código solo cierra mi sesion en mi Server 2003
Saludos y hasta otro "no respondan" (solo yo)

[jacanche]

Vaya,para ser un hilo de no responder, ya van bastantes respuestas, me fui a comer, y cuando regreso ya van como 3 paginas mas de respuestas,

en fin, ++NumMensages

[[Delphius]]

Hola... hace tan solo unas cuantas horas esto llegaba a la página 4, ahora veo que está en la 7.

¡Como que hay mucho tiempo libre!

No sigan... que me dejan atrás en el marcador... ¡me voy a quedar solito!

Código Delphi [-]
procedure IncrementarNroMensaje;
var NroNuevo: integer;
begin
  NroNuevo := NroMsj + Random(10);
  if NroNuevo = NroMsj
    then begin
             inc(NroMsj, CantMsj(roman) div 10);
             SendMessage('Gracias roman por colaborar con la cuenta XD');
           end
     else NroMsj := NroNuevo;
end;

....

if DelphiusConectado
  then IncrementarNroMensaje;

No probé el código... pero la idea es que si no logro poner algún mensaje... intentar "robarle" unos puntos al maestro roman

Saludos,
PD: Las cosas que uno inventa cuando tiene sueño.

[[poliburro]]

Empezado por Delphius

Hola... hace tan solo unas cuantas horas esto llegaba a la página 4, ahora veo que está en la 7.

¡Como que hay mucho tiempo libre!


PD: Las cosas que uno inventa cuando tiene sueño.

jajaja, es viernes, ya estamos tirando el aceite de la semana.

Por cierto aguantan unos chilaquiles para la cruda de la tremenda tequilada de este hilo no?