Douglas Soares

No Inno Setup tem alguma opção para mim instalar o firebird em todos os usuarios e para futuros usuario criados???? Ou no próprio instalador do FireBird tem alguma opção dessa? Abraços

Acabou de encontrar... é o Jhonas huashasu ele é um Crânio!

Todos os usuários são administradores.... se eu executo o arquivo reg, depois eu reinicio o computador e entro em um usuario dai funciona, se eu reiniciar dinovo e entrar em outro usuario tambem funciona.... porem se eu estiver já em um usuario e clicar em Iniciar>Fazer Logoff>Trocar de Usuário.... dai escolho outro usuario... porem dai da o erro de conexão.... acho que é porque o firebird continua aberto no outro usuário.... porem não sei resolver... Abraços

Faz o seguinte, tenta entrar nessa pasta: C:\Documents and Settings\Nome do Usuario\Recent, ve se encontra os arquivos lá! Tambem encontrei no Registro do windows a pasta nesse caminho: HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RecentDocs Abraços

Eu vi que o MLeandroJr! tambem é ehehee

Olá, sera que teria algum servidor dedicado grátis para eu colocar tipo um servidor de GTA ou CS ???? Abraços

Algum aqui de Mogi Mirim fora eu? eheheh

É eu vi... ele deve ter tirado umas férias de tanta pergunta boba, ahaha

Bom dia, cade o Jhonas pessoal????, ele sumiu derrepente.... parou de postar... o que aconteceu com ele??? alguém sabia me dizer??? Quem for à favor da volta dele mesmo sem sabermos onde ele está responda esse tópico! Abraços

Deixa a opção do form Scaled para True, alguns componentes mesmo com isso eles não se alinham, então você configura manualmente(Gambiarra xD), no formcreate bota assim por exemplo: Panel1.width := width; vai fazendo tipo essas coisas :mellow: Abraços

Dependendo do lugar que você está botando esse código, o seu programa pode não estar executando-o, então vamos testar: if Timer1.Enabled = False then begin Timer1.Enabled := True; ShowMessage('Ativei o Timer'); end else begin Timer1.Enabled := False; ShowMessage('Desativei o Timer'); end; Abraços

Qual a necessidade de fazer por SQLServer se você vai trabalhar com o Delphi?, porque não usa as funções que te passei assim: procedure TfrmValida.btValidaClick(Sender: TObject); begin if txtNumero.text <> '' then begin if Length(txtNumero.text) = 14 then begin testarcpf(txtNumero.text); end else if Length(txtNumero.text) = 11 then begin ValidaCNPJ(txtNumero.text); end else begin ShowMessage('Favor Digitar 11 Numeros para CPF (ou) 14 para CNPJ'); end; end; Abraços

Nossa que macarronada que você fez :wacko: , eheh tenta organizar assim ó: if Timer1.Enabled = False then Timer1.Enabled := True else Timer1.Enabled := False; Abraços

Pessoal, se eu não expliquei bem podem perguntar que dou mais detalhes :angry: !

Opa, ta aqui sua solução: http://www.comandodigital.com.br/forum/ind...hp?showtopic=10 Abraços

Bom dia, estou tendo dificuldades com o Firebird 1.5.4 faz um bom tempo, quando estou em um determinado usuario do windows e tento abrir meu sistema ele abre normal, porem quando eu reiniciava o computador e entrava em outro usuario ele dava sem conexão com o banco de dados! Isso eu resolvi com um simples arquivo de registro http://www.4shared.com/file/134294816/888f0642/Firebird.html esse arquivo faz com que o firebird inicie-se a partir do usuário que você logou no windows, e não em um usuário fixo.... Porem quando eu clico em Fazer Logoff e trocar usuário, dai eu logo em um usuario novo e abro o sistema e lá vem a mensagem de sem conexão com o banco de dados! outra coisa, esse arquivo resolve o problema daquela mensagem: The Firebird Guardian failed to startup because another instance of the guardian is already running. E ae alguém pode me ajudar???? Abraços

Aqui está uma boa função para checar se o CD-ROM está no drive! http://www.comandodigital.com.br/forum/index.php?showtopic=9 Abraços

Já consegui, obrigado!

Bom dia, gostaria de saber como checar se um CD está inserido no drive de CD, a letra do drive eu consigo com esta função: function GetFirstCdRomDrive: string; var r: LongWord; Drives: array[0..128] of char; pDrive: pchar; begin Result := ''; r := GetLogicalDriveStrings(sizeof(Drives), Drives); if r = 0 then exit; if r > sizeof(Drives) then raise Exception.Create(SysErrorMessage(ERROR_OUTOFMEMORY)); pDrive := Drives; // Point to the first drive while pDrive^ <> #0 do begin if GetDriveType(pDrive) = DRIVE_CDROM then begin Result := pDrive; exit; end; inc(pDrive, 4); // Point to the next drive end; end; Ela retorna 3 algarismos, exemplo: "E:\" E ai como fazer? Abraços

Não é bem isso, após executar o comando, você vai em C:\System Volume Information, e apaga todo o conteudo dessa pasta, aí sim praticamente todos os virus serão removidos... Abraços

Realmente, eu tentava da segunda forma e não dava certo, porem da primeira eu tenho o código aqui mas ficava aparecendo a janelinha de copiando do windows!, mas isso foi facil, só colocar as FLAGS certas! você iluminou minha mente, rsrsrsrs. Abraços!

por favor, estou tendo um dúvida maluca aqui, eu to tentando copiar um arquivo para uma pasta usando o CopyFile, ele copia da primeira vez, mas da segunda se o arquivo já estiver ele não está copiando!, o que fazer? Abraços

Inverte ele, huahuhauha, brincadeira, tenta assim, no onchange do edit coloca isso: Edit1.text := FormatFloat('0.00', StrToFloat(Edit1.text)); Abraços

beleza Obrigado, ahushuashuashasu Abraços

Pessoal recebi PM's de uma tal Judith, em ingles, q passou email e tudo... eita... é Spam né??????? Obrigado