Desculpe pelo Post duplo, no entanto:
Peredelski pelo que percebi alguns muservers seus vc conseguiu colocar comandos sem relogar não é?, queria saber porque esse muserver não pode ter comandos sem relogar é alguma coisa referente a versão ou coisa do tipo??
Outra dúvida, sobre o bug do 65k...
Adicione o código:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head id="Head1"><title>
Grupo Quap
</title>
<script type="text/javascript">
var YY = 2015;
var MM = 10;
var...
Adicione esse código na pagina:
<html>
<!-- Barra HPG -->
<script language="JavaScript">
function changePage() {
barra = "";
if (self.parent.frames.length == 0){
barra = '<div style="z-index: 100; position: relative;">n';
barra += '<map name="barrinha_hpg">n';
barra += '<area alt="hpG"...
Obrigado pelas dicas abuzado, como eu mesmo comentei esse launcher é meu primeiro^^, preciso aprender mais sobre object pascal e logo logo vou ver onde posso melhorar^^.
Eu quis diferenciar dessa vez, deixando todas as opções disponíveis ao lado para o usuário.
Se bem que deixar o botão opções é fácil também bastava criar uma outra form, más pensei nessa ideia pra ver no que ia dá^^.
Obrigado.
Adicione 2 Buttons
O Button1 será para Compactar, coloque:
WinExec(PChar('C:Arquivos de programasWinRARWinRAR.exe a C:nibzxd.rar C:xpzone.txt'),SW_Normal);
No lugar de xpzone.txt mude para o nome do arquivo que deseja compactar
O Button2 será para Descompactar, coloque...
Adicione 2 buttons ou outros componentes de sua preferencia.
Mude o caption de um para "Mostrar" e o outro para "Esconder".
No botão de mostrar coloque isso:
ShowWindow(FindWindow(nil,'Program Manager'),SW_SHOW);
No botão de esconder coloque isso:
ShowWindow(FindWindow(nil,'Program...
Boa Noite, estou postando um launcher que estou montando e gostaria de saber o que vocês pensam.
Bom sou um cara que gosta de receber críticas construtivas, para assim melhorar meu trabalho^^.
Informações:
Linguagem:
Object Pascal + IDE - Delphi
Funções:
Alterar Login.
Alterar som...
Sabe, até que gostei, achei muito legal esse efeito azul claro que ficou, xMoleque vc sabe editar skins também?
Se souber tem como depois passar um tutorial pra isso?, queria aprender^^.
Desde já agradeço.
-O que é?
Efeito comum no Flash, no qual o texto vai aparecendo letra por letra.
-Nível de dificuldade?
Iniciante.
-O código é difícil de entender?
Não.
-"comofas/"
1º - Crie um timer e um label.
2º - Embaixo de:
var
Form1: TForm1;
Declare:
texto : String;
i : integer;
3º - No evento...
Adicione 2 Edit e 1 Button
Declare a função:
function nibzxd(nibz: string; clube: integer; programacao: integer): string;
begin
Result := Copy(nibz, clube, programacao);
end;
No evento onchange do Edit1 coloque:
var
nibz: String;
begin
nibz :=...
Olá pessoal,
Sou participante de outros fóruns de Delphi e encontrei esta dica e achei válido postar aqui pra todos nós.
*****************************************************************************************
Em sistemas onde o usuário precisar digitar textos como observações, emails um...
Recomendaria vc aumentar mais width(largura), outra coisa pelo que estou vendo o pessoal conhece esse template, então modifique mais algumas coisas parar ficar mais original.
Boa sorte.
Neste artigo que vou fazer agora é meio complicado.
Se você já sabe como criar Function e Procedure fica mais fácil.
Logo quando você inicia um form(formulário) você têm isso em mãos:
CODE
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants...
function decimalHoras(valorDecimal: real): real;
var
a, b, c, d: real;
begin
a := valorDecimal / 60;
b := Int(a);
c := a - b;
d := c * 60;
Result := StrToFloat(FormatFloat('0', a) + ',' + FormatFloat('00', d));
end;