Codigo sin utilidad

[ixMike]

Bueno, este sí que tiene su utilidad, siempre y cuando no conozcas (como me pasaba a mí cuando lo escribí) el ForceDirectories que incluye Delphi

Código Delphi [-]
 
procedure MyMakeDir(Dir: string);
begin
If not DirectoryExists(ExtractFileDir(Dir)) then
 MyMakeDir(ExtractFileDir(Dir));
MkDir(Dir);
end;

Este es uno de los muchos procedimientos que creé sin saber que ya existían. Este al menos se quedó bien.

[Casimiro Noteví]

También tienes "CreateDir"

uses FileCtrl;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not DirectoryExists('c:\temp') then
    if not CreateDir('C:\temp') then
    raise Exception.Create('Cannot create c:\temp');
end;

[d-hugo]

Otro para la colección, aunque para ser franco, he usado este principio indirectamente para otras cosas (por increíble que parezca):

Código Delphi [-]
program sandez;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  s = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var
  i, j, k: byte;
  stmp: string;
begin
  stmp := s;
  j := length(s);
  Randomize;
  for k := 1 to 12 do
  begin
    for i := 1 to j do stmp[i] := s[random(j)];
    writeln(stmp);
  end;
end.

PD. Pero la verdad que hay que reconocer que va a ser difícil ganarle al Brainfucker, está impresionante.

[ContraVeneno]

SQL para determinar si es palíndromo:

Código SQL [-]
Declare @Str varchar(60)
--Select @str='Anita lava la tina'
Select @str='Ana lleva al oso la avellana'

Select
case when reverse(substring(replace(@str, ' ',''),(len(replace(@str, ' ',''))/2)+2,(len(replace(@str, ' ',''))/2)+1))=substring(replace(@str, ' ',''),1,(len(replace(@str, ' ',''))/2)) then 1 else 0 end EsPali

[[fer21unmsm]]

Hola compañeros acá les dejo mi aporte:

El siguiente procedure que hice es para ejecutar aplicaciones sin tener permisos de administrador, lo pongo porque ahorita no me sirve

Código Delphi [-]
procedure EjecutarRA(stUserDomain, stProg, stParam: String);
begin
   WinExec(PChar('runas /user:'+ stUserDomain+' '+chr(34)+stProg+ ' '+ stParam+chr(34)),SW_SHOWNORMAL);
end;

Tal vez a alguien no le sirva

[Casimiro Noteví]

Empezado por fer21unmsm

[..] ejecutar aplicaciones sin tener permisos de administrador[..]

¿Que se puede ejecutar programas como administrador, sin ser administrador?

Pues le veo muuucha utilidad

[MaMu]

Este código es completamente útil para cuando me pica la espalda o cuando tengo una fuerte comezón sentado en la computadora

Código Delphi [-]
procedure rascame(ParteDelCuerpo:TBody,Intensidad:integer,Tiempo:TTime);
var QueMano:TBody;
     MePica:boolean;
begin
  MePica:=True;
  QueMano:=Tbody.Create;
  QueMano.Assign(ParteDelCuerpo);
  While MePica=True 
      then begin
          With ParteDelCuerpo do
               Lapsus:=Tiempo;
               Fuerza:=Intensidad;
          end;
          Try 
            QueMano.Rascame;
          except
            QueMano.Message(10,10,'Eres manco!!! no puedo rascarte'); 
          finally
            QueMano.YaPaso;
            MePica.Status:=False;
         end;
  QueMano:= nil;
 ParteDelCuerpo.Free; 
end;

Juaz

[mamcx]

Empezado por Casimiro Notevi

¿Que se puede ejecutar programas como administrador, sin ser administrador?

Pues le veo muuucha utilidad

Obvio!.

De hecho, en este momento estoy bajo una cuenta limitada y cuando necesito hacer una "maraña" de administrador:

%windir%\system32\runas.exe /user:*****\Administrator "%SystemRoot%\explorer.exe /e, c:\"

[Casimiro Noteví]

Empezado por mamcx

Obvio!.

De hecho, en este momento estoy bajo una cuenta limitada y cuando necesito hacer una "maraña" de administrador:

%windir%\system32\runas.exe /user:*****\Administrator "%SystemRoot%\explorer.exe /e, c:\"

Curioso, es algo parecido a "sudo" en linux