Ocultar tu Aplicacion de la barra de tareas (delphi)

En Ocaciones por casusas de fuerza mayor cuado desarrollamos pequeñas aplicaciones, nos vemos en la necesidad de que nuestra aplicacion no se muestre en el la barra de tareas (como muchos la conocen barra de inicio)

el procedimiento es muy sencillo, en el formshow

ponemos:

  ShowWindow(application.Handle, SW_HIDE );

y es todo,  de esta forma quedaria:

procedure TForm1.FormShow(Sender: TObject);

begin

 ShowWindow(application.Handle, SW_HIDE );

end;

deshabilitar la memoria usb delphi

Para mucha gente que tiene problemas con los virus que se pasan gracias a las memorias usb, una de las opciones que tube que poner es bloquear las memorias usb, 

el procedimiento en delphi es el siguiente

procedure EnableUSB(Value: Boolean);

begin

  with TRegistry.Create do

  try

    RootKey:= HKEY_LOCAL_MACHINE;

    if OpenKey('\SYSTEM\CurrentControlSet\Services\USBSTOR',TRUE) then

    begin

      if Value then WriteInteger('Start',3)

        else WriteInteger('Start',4);

      CloseKey;

    end;

  finally

    Free;

  end;

end;

y el procedimiento lo mandas llamar en cada boton por serado

EnableUSB(True); {para habilitar}

EnableUSB(False); {para deshabilitar}

recuerda que para este tipo de procedimientos donde se ahce referencia al registro, hay que utilizar la libreria Registry,