Churc

Dá para exemplificar? :huh: UAEHua é também não conheço essa rsrexplica pra nóis ai kkk

opa tem vários métodos, mas o mais simples de todos é o seguinte, vamos supor que o Formulário principal do programa A tenha o nome de FormA, então pra detectar no FormB você faria exemplo... function isrunning(const szClass: String): Boolean; begin Result := (FindWindow(PChar('T' + szClass), nil) > 0); end; ai seria exemplo if isrunning('FormA') then //está rodando else //não está rodando... O segredo está no FindWindow, que é uma função da API do Windows na qual retorna um valor maior do que 0 caso seja encontrada uma janela que é passada em seus parâmetros.. FindWindow(Classe da Janela, Nome da Janela); abraço

opa da uma olhada nesse tópico criado pelo Progr'amador Criando um relatório no Quickreport passo a passo. Utilize a busca do fórum também, você vai encontrar bastante coisa... abs

Opase você fizer da maneira que eu falei isso não vai acontecer, isso só vai acontecer se você rodar seu programa pelo Delphi, pois o delphi possui um Debugger próprio... faz com o try, except e rode seu programa fora do delphi você vai ver que isso não acontece... ao contrário vai aparecer a mensagem que você colocou em except... abraço

opa mas qual arquivo .dcu ele não consegue encontrar? Seja mais específico se possível coloque as mensagens de erro que aparece, esse erro não tem haver com seu código e sim com alguma unit dele, ou de um componente que não está presente... abraço

opa Normalmente os componentes de conexão te retornam se houve sucesso com a conexão (Result: True/False) ou geram um erro (raise)... Qual componente você está usando, e como você está fazendo pra conectar... de qualquer forma, você pode tentar try component.Connect; ou Open; ou Active := True; eheh except Mensagem aqui Exit; end; abs

opa uia muito bom Micheus, nem imaginava que daria pra fazer direto no listbox sem nem precisar criar um componente derivado dele... abraço

opa Realmente o Anti-virus, acredito que qualquer um vai achar que é um Keylogger, porque na verdade é um keylogger mesmo e não é seu caso, mas um código desse pode facilmente roubar dados pessoais de qualquer pessoa, por exemplo, você enviar pra alguém, ou até mesmo instalar em uma lan house pra roubar informações digitadas... E quanto a remover o código da DLL, acredito que não é possível pois pra fazer um Gancho (Hook) você precisa injetar a DLL com o SetWindowsHook então não da pra você colocar este código no seu executável... Não pra fazer um Hook global, ou seja, pegar qualquer tecla digitada em qualquer aplicação... abraço

opa o que você quer fazer é tipo o que o MSN faz, ou qualquer outro programa de bate papo, uma lista dos usuários com possíveis informações adicionais, como foto e tal... Bom na verdade acho que você não vai conseguir fazer isso com um Listbox, não do jeito que você quer, você teria que fazer um componente com essas possibilidades, onde você pode derivá-lo de um outro componente, tipo TCustomListBox... abraço

opa O que você tem no OnFormCreate, OnFormActivate, OnFormShow, etc? Outra coisa é dar um break point, na primeira linha do seu OnFormCreate do Form2, você da um duplo clique no canto da linha, pra ela ficar vermelha, ai você roda o programa com o F9 ai o Debugger vai parar bem nessa linha, então rode o programa a partir dai com o F8, o F8 é Step by Step(Passo a passo) onde ele vai rodando linha por linha assim possivelmente você acha o erro... caso não encontrar ai, você pode adicionar break-points que é aquela linha vermelha em vários locais do seu código fonte, mas como o erro acontece na criação do Form provavelmente você acha adicionando nos eventos que são chamados após a criação do form, OnCreate, OnShow, OnActivate, etc... Mas esse erro ai é de banco de dados isso certeza absoluta pois se fosse um erro de código o Delphi iria te alertar parando na linha... da uma olhada ai abraço

opa chama a CallStack e passe aqui onde exatamente acontece o erro, senão fica difícil abraço

Opa Bem vindo!

opa Você precisa definir no component ZQuery qual é o component de conexão, no caso seria ZConnection

Segundo as regras do fórum, não é permitido nenhum conteúdo sobre pirataria ou que faça apologia ao mesmo. Tópico fechado.

opa tenta descobrir aonde exatamente está o erro pela call stack do delphi... talvez ajude pelo menos, faça o seguinte rode seu programa pelo Delphi, quando der o erro você clica em OK na mensagem de erro, o editor irá parar na linha onde o erro aconteceu, o que não é verdade, literalmente ele ocorreu ali mas pode ter acontecido em outra unit por exemplo, então com o editor parado na linha do erro você faz Control + Alt + S vai aparecer uma janelinha, a de Call Stack... nela deve aparecer alguns itens, clique em cada um desses itens e o editor irá para uma linha relacionada ao erro... Vale lembrar que este tipo de erro seu pouco provavél será solucionado por este procedimento pois ele acontece na dll Kernel32, se fosse um Access Violation, etc seria mais fácil de encontrá-lo... Mas tente do modo que falei talvez ajude, ah e se possível, a cada item da janela da CallStack cole aqui parte do código onde o editor aponta, assim fica mais fácil alguém te ajudar... abraço

opa é isso mesmo, se usa o @ pra se passar/acessar ponteiros... É usado principalmente quando vai ser passadas variaveis entre EXE-DLL por exemplo, pra permitir que a DLL por exemplo tenha acesso de leitura e escrita naquela variavel... claro existem diversas maneiras de se fazer isso, mas uma delas é usando o @ pra indicar aonde está alocada a variavel na memoria Exemplo simples type TQlqcoisa = packed record Um: Integer; Dois: Integer; Tres: Integer; end; PQlqcoisa = ^TQlqcoisa; (* EXE *) function Bla(Parametro: LongInt); StdCall; external 'minhadll.dll'; procedure Ble; var Qlqcoisa: TQlqcoisa; begin Bla(Integer(@Qlqcoisa)); //Aqui a dll definiu as variaveis Um pra valor 1, Dois pra 2 e Tres pra 3 =p end; (* DLL *) function Bla(Parametro: LongInt); StdCall; begin PQlqcoisa(Parametro)^.Um := 1; PQlqcoisa(Parametro)^.Dois := 2; PQlqcoisa(Parametro)^.Tres := 3; end; abs

opa olha a pasta Examples\Delphi do lockbox que tem vários exemplos... vai depender do que você quer encriptar muda, por exemplo, criptografar um arquivo (binario) não é mesma coisa que criptografar uma escrita (string)... de qualquer forma, todos os exemplos possíveis estão presentes na pasta "Examples" como eu mencionei acima rs abraçao

opa asuhsuhahausvê sim vale a pena muito fera rsr abraço

opa Tava vendo que a Apple criou um celular que é embutido o iPod... parece simples né mas da uma olhada no video vocês vão se surpreender com ele... Só o esquema de ser Multi Touch Screen de não ter keypad já foi espetacular ahuahu O Steve Jobs diz em uma parte, "Nós reinventamos o celular" aahuahu realmente... Para ver o vídeo necessita do Quicktime 7 - Download Video - Clique em Watch iPhone Introduction Pra quem curte tecnologia vale a pena ver... No youtube também tem vários videos sobre... mas eu recomendo ver o do site da Apple pois é o mais completo e oficial... abraço

opa Você quer saber se é fácil criar um AutoPick? Se o negócio é só ficar simulando o pressionamento da barra de espaços então como você mencionou então até seria fácil... Abra seu Delphi, vai na Paleta System e coloca um componente TTimer(Relogio) no Form... Selecione o componente no Form... No Object Inspector (aperta F11 ele aparece) você vai ver o Interval, vem por padrão 1000 que é referente a 1 segundo, ali você coloca em milisegundos o tempo que você quer, então se quiser a cada 3 segundos seria 3000, meio segundo 500 e por ai vai... No Object Inspector ainda, clique na aba Events, e você visualizará OnTimer, da um duplo clique neste OnTimer ou da um duplo clique no componente... vai aparecer algo assim procedure TForm1.Timer1Timer(Sender: TObject); begin keybd_event(VK_SPACE, 0, 0, 0); //Cole isso end; Resumindo, a cada tempo que você definir em Interval será simulado o pressionamento da barra de espaços no teclado... Salve o programa, da um Ctrl + F9 pra compilar e vai na pasta aonde você salvou e lá terá seu executável... Com o tempo, conforme você for aprendendo você vai melhorando... Ahhh agora se você quer criar um Bot, um programa que fica caçando, pegando coisas sozinho, usa magia com a vida baixa você vai ter que aprender muitooo muitooo ainda, saber manipular memória, achando endereços, saber ler e escrever na memória do jogo, etc... muito díficil, poucos sabem fazer isso... raros Fora que perde muito tempo, e além do mais a cada atualização do jogo muda tudo, isso ainda quando o jogo não possui sistema anti crack que fica scaneando a memória e você teria que saber como burlá-lo primeiro rs abraço

opa e quanto ao TImage dentro do TScrollbox? Chegou a testar? Com o TImage, da pra colocar normalmente componentes emcima, não interfere... se é isso mesmo que você quer ahuauha foi o que eu entendi...rs Ai você pode desenhar normal no TImage usando o Canvas dele... abraço

opa o que você quer fazer, gerar um certificado? tipo uma chave pública pra Editor de software ou controle activex por exemplo... abs

opa Tenta jogar um TImage dentro do TScrollbox, e depois você desenha no Canvas do TImage... Mas no seu caso não seria um TPaintBox? abs

opa na minha opinião esse código está perfeito... gambiarra não é, que as funções que você usa do Delphi fazem essas coisas é que você está acostumado a utilizar funções pré-prontas de units como SysUtils, DateUtils, StrUtils mas nada mais nada menos elas fazem a mesma coisa só que de maneiras diferentes, e as vezes até pior ahuauh já vi várias coisas que podiam ser otimizadas... eu já tive esse negócio, de querer fazer tudo profissionalmente, cada função, cada linha achando que o que eu montava era gambiarra... no fim você acaba perdendo produtividade e aumentado o tempo para entrega do programa... resumindo, só se fo** ehehe abraço

Você tem que instalar o ZeosDBO - Zeos Database ObjectsO procedimento é o mesmo pra qualquer componente, extrai em uma pasta, adicione a pasta do source (scr) na sua type lib assim com todas as pastas da pasta source (scr)... ZeosDBO\src ZeosDBO\src\component ZeosDBO\src\core ZeosDBO\src\dbc ZeosDBO\src\parsesql ZeosDBO\src\plain Depois compile e instale os pacotes da pasta packages\Delphi 7 você pode também usar o BDE como o Progr'amador disse, ele tem bastante experiência com Oracle... Eu já nem manjo então apenas estou falando o que já li na internet rsr abraço