Ir para conteúdo
Fórum Script Brasil

OSJunior

Veteranos
  • Total de itens

    2.901
  • Registro em

  • Última visita

Posts postados por OSJunior

  1. pra você esconder do ctrl+alt+del:

    //Kurt22 - Orlando da Silva Junior
    //orlandosjunior@hotmail.com
    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
    
    type
      TForm1 = class(TForm)
      procedure FormCreate(Sender: TObject);
      procedure FormDestroy(Sender: TObject);
      private
      { Private declarations }
      public
      { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.DFM}
    {Para ocultar um programa, deve-se registrar este como um serviço do Windows. Normalmente um serviço do Windows é ativado quando com a inicialização do sistema (Windows) e pemanece ativo até a finalização deste. Este processo esconde o programa da lista "Ctrl+Alt+Del"}
    Const
      Servico_Simples = 1;
      Servico_Unregister = 1;
    
    Function RegisterServiceProcess(DwProcessID, dwType: DWord): DWord; StdCall; External 'KERNEL32.dll';
    
    
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      RegisterServiceProcess(GetCurrentProcessID, Servico_Simples);
    end;
    
    procedure TForm1.FormDestroy(Sender: TObject);
    begin
      RegisterServiceProcess(GetCurrentProcessID, Servico_Unregister);
    end;
    end. 
    

    Grato.

  2. Olá, como faço um formulário para envio, somente com.

    endereço do remetente

    endereço do destinatário

    mensagem

    é necessário usar o input hidden? e banco de dados?

    Me ajudem!

    Grato.

  3. Gente, já estou começando a ficar envergonhada!!!

    wub.gif

    Além de atenciosos e muito bom no que fazem, vocês ainda são muito educados (pena que são mentirosos também - rs...)

    Bjocas...

    ;oÞ

    É Renata, a galera daqui é bem gente boa mesmo.

    O meu negócio também é delphi; ateh já tinha mexido com asp, mas nem lembrava, ae a galera meu deu uma forçinha. smile.gif

    O fórum aumentou bastante, e todos contribuem com o que podem, é um ótimo portal.

    Grato.

  4. tente:

    <script language="JavaScript">
    <!--
    var howMany = 7
    var quote = new Array(howMany+1)
    quote[0]="Mensagem 01!"
    quote[1]="Mensagem 02!"
    quote[2]="Mensagem 03!"
    quote[3]="Mensagem 04!"
    quote[4]="Mensagem 05!"
    quote[5]="Mensagem 06!"
    quote[6]="Mensagem 07!"
    function rndnumber(){
    var randscript = -1
    while (randscript < 0 || randscript > howMany || isNaN(randscript)){
    randscript = parseInt(Math.random()*(howMany+1))
    }
    return randscript
    }
    quo = rndnumber()
    quox = quote[quo]
    document.write(quox)
    // -->
    </script>
    
    

    qualker coisa posta aki!

    Grato.

×
×
  • Criar Novo...