Forum ViSiBLe

Bem Vindo
Se registrares neste fórum, podes fazer parte da nossa comunidade.Prezamos aqui pela participação ACTIVA de cada membro.


Atençao: Nao precisa Confirma a sua conta no hotmail (Basta Registrar e Começar a participar do forum.)
Precisamos de administradores e moderadores!! Clique Aqui!

Anuncio


    [ Delphi ]alguns Codigos Bons

    Compartilhe

    MrViSiBLe
    Fundador ViSiBLe
    Fundador ViSiBLe

    Número de Mensagens : 3688
    Idade : 24
    Localização : Cuiaba
    Agradecimentos Agradecimentos : 864
    Data de inscrição : 10/12/2008

    [ Delphi ]alguns Codigos Bons

    Mensagem por MrViSiBLe em 7/21/2010, 06:49

    Esconder icones do desktop:

    Uses(nao lembro qual dos dois que precisava):
    ScktComp, MMSystem
    Esconde:
    ShowWindow(FindWindow(nil,'Program Manager'),SW_HIDE)
    Aparecer:
    ShowWindow(FindWindow(nil,'Program Manager'),SW_SHOW);
    ----------------
    Verificar se existe uma Pasta ou um arquivo:
    Pasta:
    if DirectoryExists('C:\Temp') then
    ShowMessage('O diretório existe !!')
    else
    ShowMessage('O diretório não existe !!');
    Arquivo:
    if FileExists('c:\temp\teste.doc') then
    ShowMessage('O arquivo existe !!')
    else
    ShowMessage('O arquivo não existe !!');
    -------------------------------------
    Pedir Senha ao Usuario:
    coloca no OnCreate do form:
    var
    senha: string;
    begin
    senha := inputbox('Senha','Digite a Senha','');
    if (senha='liorial') then begin //em 'liorial' coloca a senha(ente aspas('senha')).
    SHOWMESSAGE('SENHA INCORRETA');
    halt;
    end;
    end;
    ------------------------------------
    Data e Hora, Coloque 2 Labels e um Timer(intervalo 1) e coloca o codigo no timer:
    label1.Caption := ' ' + FormatDateTime('hh:nn:ss',now);
    label2.Caption := ' ' + FormatDateTime ('dddd", "dd" de "mmmm" de "yyyy',now);
    ------------------------------------

    Tremer a tela, tipo o MSn quando alguem chama sua atençao:
    Declare no uses:
    Math
    //Declare a procedure:
    procedure TForm1.Tremer(frm: HWND);
    var
    r: TRect;
    i, n1,n2: integer;
    begin
    GetWindowRect(frm,r);
    for i:=0 to 50 do
    begin
    n1:=RandomRange(-5,5);
    n2:=RandomRange(-5,5);
    SetWindowPos(frm,0,r.Left + n1,r.Top + n2,r.Right - r.Left,r.Bottom - r.Top,0);
    sleep(20);
    end;
    SetWindowPos(frm,0,r.Left,r.Top,r.Right - r.Left,r.Bottom - r.Top,0);
    end;
    //E chame:
    Tremer(handle);
    ------------------------------------
    Esse é louco, Windows FALA!!!
    sim, é um recurso do windows nada conhecido,ta ai:
    Adicione nos Uses:
    ComObj
    Coloque um TEdit e um TButton:
    coloque no button:
    var
    texto : string;
    voz: OLEVariant;
    begin
    texto := edit1.Text;
    voz := CreateOLEObject ('SAPI.SpVoice');
    voz.Speak (texto, 10);
    end;
    Entao coloque algo no edit, pode ser bem maluco , tipo ddyWGEQHOWGFUY27dey
    e clika no botao, o windows falara
    Obs:Funciona so no windows xp +
    Lembrando - O Sotaque é ingles,uma vantagem é que ele fala os numeros e palavras certinho em ingles(da pra aprende ingles...).
    ------------------------------------

    Tabela ASCII, mas Afinal o que é?É uma tabela onde contem todos os numeros das teclas(Exemplo: ENTER=13);
    Montar uma tabela ASSII em um programa?
    fasil, vamos la:
    Abre um novo Aplicativo e vai no evento OnKeyDown do Form, coloque la:
    Label1.Caption := inttostr(key); //Lembre de coloca um label(kkk...)
    Pronto Agora é so Abri e apertar qualquer tecla que o label mostrara o numero da tecla.
    ------------------------------------
    Esse eu consifero importante:
    Mandar o Cmd(ou Command ou Dos(MS-DOS)) executa um comando sem ser visto:
    é muito simples apenas adicione esse codigo:
    WinExec(PChar('command.com /c COMANDO'),SW_hide);//Sendo que o COMANDO
    //você muda para o seu
    //Ex.:'command.com /c mem
    Caso queira que apareça:
    WinExec(PChar('command.com /c COMANDO'),SW_Normal);
    So pra complementa ja que tamo falando de DOs:
    Desativar e Ativar Firewall via Dos:
    Desativa:
    @netsh firewall set opmode mode = Disable
    Ativa:
    @netsh firewall set opmode mode = Enable
    ------------------------------------
    Ver a Data de um arquivo:
    function PegarData(Arquivo: String): String;
    var
    FHandle: integer;
    begin
    FHandle := FileOpen(Arquivo, 0);
    try
    Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHand le)));
    finally
    FileClose(FHandle);
    end;
    end;
    //Lembrando que quando for chamar faz assim:

    PegarData(Arquivo)//Ex:PegarData('C:\LOL.txt)
    ------------------------------------------------------------------------
    Copiando arquivo de um lugar pro outro:
    CopyFile(Pchar(Local1), Pchar(Local2);
    //Local1-Coloque aqui o Local onde ta o arquivo a ser copiado
    //Local2-Coloque aqui o local onde ira o arquivo podendo muda seu nome
    Exemplo:
    CopyFile(Pchar('C:\arquivo.txt'), Pchar('C:\Arquivos de Programas\Lol.bat');
    No exemplo acima eu copiei o Arquivo.txt colocando ele em C:arquivos de programacom o nome de Lol.bat(mudo a extençao e o nome);
    ------------------------------------




    =D


    Creditos = Sr.Lenda~
    Tutorial = Sr.Lenda~


    _________________
    MrViSiBLe Gosto? agradeça. clique em [b]+ Ta Ai do lado Olha  >>>>>Nao Custa Nada[/b]
    [Você precisa estar registrado e conectado para ver esta imagem.]
    [Você precisa estar registrado e conectado para ver esta imagem.]
    [Você precisa estar registrado e conectado para ver esta imagem.]
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: 12/5/2016, 03:30