Codigo sin utilidad

[Casimiro Noteví]

Pues sí, ese es el asunto, más o menos sucede siempre así:
Cliente nuevo (con servidor windows). Todo hecho un asquito. Se limpia, se arregla, se afina, se crean usuarios "normales" y se les da permiso sólo para lo que usan. Al día siguiente llaman con algún problema. Llamas al fabricante del software y la constestación típica: "es que nuestro programa llama a xxx.dll del windows y necesita privilegios de administrador". Se acabó la poca seguridad, abrir el sistema a todo el mundo y dejarlo como estaba al principio .

Tal y como comentas, mamcx, los programadores windows, por lo general, están muy mal acostumbrados, igual que los usuarios, y quieren ser administradores para poder hacer lo que les parezca sin barrera alguna.
Así están casi todos los sistemas windows, se juntan las dos cosas: que no sea demasiado seguro y los usuarios, que son unos manazas y se aprovechan de ello.

[roman]

Empezado por Casimiro Notevi

Tal y como comentas, mamcx, los programadores windows, por lo general, están muy mal acostumbrados, igual que los usuarios, y quieren ser administradores para poder hacer lo que les parezca sin barrera alguna.

Siguiendo el hilo de otros argumentos tuyos al respecto de Linux, esto, programas mal hechos, ¿son culpa del SO?

// Saludos

[Casimiro Noteví]

Empezado por roman

Siguiendo el hilo de otros argumentos tuyos al respecto de Linux, esto, programas mal hechos, ¿son culpa del SO?

// Saludos

Por supuesto que no.

[[seoane]]

Y me pregunto, esto tres "maestros" solo se van a acercar a este hilo para discutir sobe Linux, porque seguro que algún código interesante/curioso/inútil tienen por ahí

PD: Si alguien se anima a poner algo, por favor que por lo menos compile. Porque últimamente el tema esta yéndose al absurdo, y no es lo mismo absurdo que inútil

[Casimiro Noteví]

Bueno, aunque yo no sea ningún maestro (ojalá), aquí va un pequeño aporte.
Buscando en el baúl de los recuerdos encontré este programita que sirve para programar la hora de apagado de windows... y que se apague, obviamente.
Tiene un par de componentes de las RX y estaba hecho con Delphi 7.

[roman]

Empezado por seoane

Y me pregunto, esto tres "maestros" solo se van a acercar a este hilo para discutir sobe Linux

Es que, mientras algunos buscan su nombre en los hilos (ji, ji, disculpa, no me puede resistir ), otros buscan "linux" y otros buscamos "polémica".



// Saludos

[[seoane]]

Empezado por roman

Es que, mientras algunos buscan su nombre en los hilos

Si solo fuera eso, a veces hasta me busco en google

Empezado por Casimiro

Bueno, aunque yo no sea ningún maestro (ojalá), aquí va un pequeño aporte.

Excelente, alguien mas que se anima . Yo que ya daba este hilo por muerto.

Prometo que si se anima mas gente, yo también colocare algo.

[[seoane]]

Bueno, ahí va un código que NUNCA DEBES EJECUTAR.

Código Delphi [-]
 // ....
 TMatame = class(TThread)
  protected
    procedure Execute; override;
  end;

// ....
uses PsApi, ShellApi;

function CuantosSomos: Integer;
var
  Procesos: array[1..1024] of DWORD;
  Needed, i: DWORD;
  Process: THandle;
  ModName: array[0..MAX_PATH] of Char;
begin
  Result:= 0;
  if EnumProcesses(@Procesos,SizeOf(Procesos),Needed) then
  begin
    for i:= 1 to (Needed div Sizeof(DWORD)) do
    begin
      Process := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,
        FALSE,Procesos[i]);
      if Process <> 0 then
      begin
        if GetModuleFileNameEx(Process,0,ModName,SizeOf(ModName)-1)>0  then
        begin
          if StrIComp(ModName,PChar(ParamStr(0))) = 0 then
            inc(Result);
        end;
        CloseHandle(Process);
      end;
    end;
  end;
end;

{ TMatame }
procedure TMatame.Execute;
begin
  FreeOnTerminate:= TRUE;
  while (TRUE) do
  begin
    if CuantosSomos < 4 then
      ShellExecute(0,nil,PChar(ParamStr(0)),nil,nil,sw_show);
    Sleep(10);
  end;
end;

Para activar la tontería, (NO LO HAGAS)

Código Delphi [-]
TMatame.Create(FALSE);