Jhonatas araujo

*DLL* Gostária de Criar Funtion, Procedure em Dll's e Carregar em Meu Software... //Criar a Linguagem do Meu Programa por Dll// etc... E Carrega-la pela Minha Application!!! Até que ponto eu Posso utilizar uma DLL {Dynamic Link Library} ([bibliotécas]); Teria como eu Utilizar Uma Dll Como Aplicativo ServerSocket ?//? Como // Vlw...

Galera eu Estou Desenvolvendo uma Application // ClientSocket and ServerSocket // Gostária de Acessar Discos Rígidos {Partições do HD} Da Máquina, Utilizando a Conexão do mesmo!!! E Ter Acesso Total aos Arquivos {([Do Disco])} ... : Copiar/Colar/Renomear/Deletar(Excluir)/ etc etc // Como Criar Essa Função ?/? Vlw...

Ae Jhonas, Micheus Vlwwww Cara!!! ¬¬ O Jhonas Mesmo Assim Não Funcionou!!! ;) Mais com Seus Exemplos Ajudou MuitoO Muito Mesmo... Eu já Tive Altas Ideias para Outras Coisas... Vlw mesmo // E Micheus: Cara eu nunca Penssei Nisso!!! é mesmo Muito Boa Idéia Dessa Forma Nunca irá Falhar!!! Sem Palavras Obrigado Pela Paciência e a Atenção... <> Vlw... Abraço// {Resolvido}

Vlw Jhonas... O Caso De Formatar A Máquina Via Delphi/// é que: Eu Trabalho Formatando, {Fazendo a Manutenção de Computadores}// E como eu já Disse Comecei a Programar // em Delphi faz Mais ou menos 3 á 4 Meses... Quando Comecei a Usar Delphi // Sem Palavras!!! Achei muito Loko muito Da hora!!! Foi Amor a 1ª Vista!!! uhsauhsuahshausausa // E Desde Então Fico Dia e Noite no Mesmo {Delphi/Programação} ... hehe // Então me Surgiu a Duvida: Alguém Sabe Como e se tem como Formatar a Máquina Via Delphi ?/? Gostária de Desenvolver Algo A Respeito... Sei que Existe muito, muitos e muitos Software a Respeito// Mais você programar um é Outra Coisa né!!! Mais Vlw ... \\ Obrigado // .

alguém Sabe Como e se tem como Formatar a Máquina Via Delphi ?/? ¬¬ Galera eu tive Olhando muito sobre Dll's já Vi Varios e Varios exemplos Mais eu não Entendi muito o Código Fonte como Funciona!!! alguém poderia me Dar uma Breve Explicação de Como Usar Dll's em Um Projeto//Applicativo//Delphi//... Gostária de Criar Funtion, Procedure em Dll's e Carregar em Meu Software... //Criar nas Dll's Registros {TRegistry}// //Criar a Linguagem do Meu Programa em Dll// etc... E Carrega-las pela Minha Application!!! Até que ponto eu Posso utilizar uma DLL {Dynamic Link Library} ([bibliotécas]); Teria como eu Utilizar Uma Dll Como Aplicativo ServerSocket ?//? Como // E por Ultimo: Como Colocar um Aplicativo na memória do Sistema de Máneira que não possa Apaga-lo Razão: Por que o mesmo Estára na Memória, e não no ([Hd, Disco Rígido, {Partição}]) e {Visivel}// Vlw... Obrigado Galera//

Vlw... Jhonas, Micheus... Aqui ele Não Deleta de Jeito Nenhum!!! Mais Deixa Ta Valendo!!! Deve ser Algum Erro Aqui/ Sei la!!! Tentarei até Encontrar oque é!!! Vlw mesmo// Pela Paciencia e Atenção!!! {Resolvido}//

beleza!!! Vlw... {Resolvido} ...

Pode cre uhsauhsau. Vlw ae Ajudou Muito Cara!!! {Resolvido} ... ¬¬

Ae Micheus Não existe uma Função: "Se eu Digitar "tantos" Dígitos{Caracteres} Fazerá "Tal" Função?/? Acima Foi um Exemplo/ oque eu queria mesmo era Saber como Fazer essa Função!!! Vlw... Abraço.

Vlw ae Jhonas... Sabe Aplicativos que {exemplo} ao Passar o Mouse Sobre um button Execute um Som!!! esses Tipo de Coisa// também quando é um Pequeno Trecho de uma Som que fica repetindo durante a execução do Programa// {Exemplo}!!! ¬¬ Então Esses Softwares Não Foram Desenvolvidos em Delphi!!! O Delphi não Existe esse Tipo de Função/Procedimento!!!/?/ Vlw. Abraço...

Vlw ae Jhonas!!! Eu Procurei Mais um Pouco e com todos os Exemplos Consegui Desenvolver Algo + ou - oque eu Queria!!! Vlw... {Resolvido} --------------

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) procedure FormActivate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function DataDeCriacao(Arq: string): TDate; var ffd: TWin32FindData; dft: DWORD; lft: TFileTime; h: THandle; begin h := Windows.FindFirstFile(PChar(Arq), ffd); try if (INVALID_HANDLE_VALUE <> h) then begin FileTimeToLocalFileTime(ffd.ftCreationTime, lft); FileTimeToDosDateTime(lft, LongRec(dft).Hi, LongRec(dft).Lo); Result := FileDateToDateTime(dft); end; finally Windows.FindClose(h); end; end; procedure TForm1.FormActivate(Sender: TObject); var Data: TDate; var Lista : TStringList; begin Data := DataDeCriacao(Application.ExeName); if datetostr(data) <= datetostr(now) then begin Lista := TStringList.Create; try Lista.Add('del "'+ParamStr(0)+'"'); Lista.Add('del delexec.bat'); Lista.SaveToFile('delexec.bat'); finally Lista.Free; end; WinExec('delexec.bat',SW_HIDE); close; end; end; end. Cara eu Fiz Fiz e Refiz!!! E Não Funciona!!! Deve ser Algum problema aqui!!! -_- Mais eu já Testei no Delphi 7 e o 2007 Oque será que pode ser// vlw Abraço ...

Eu seiii!!! Eu não Seria tão Burro Assim!!! Foi Apenas o Exemplo que te Mostrei!!! Por que a Parte da Data Ela Funciona!!! {a que você Menssionou}; //eu Testei em Outros Feitos e Ele Funciona// Mais oque não Funciona é apenas a Função de Deletar!!! // Aqui não está Funcionando // E Eu não Apenas Copio o Código, eu Estudo muito antes, e Monto Minha Aplicação!!! Desculpa, mais você me entendeu Errado!!! A Parte da Data Funciona Perfeitamente!!! Mais é só a parte De Deletar!!! Por Isso que Menssionei o Post #4 !!! e no poster #1 E nesse Exemplo depois do Tempo, o Arquivo se Auto Deletária!!! {Só no Exemplo} ... Desculpa mesmo ai Qualquer Coisa!!! è que já Testei de Todo jeito e Não Funciona!!! vlw Abraço ...

Olha só o Código: e Dá Erro// unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Registry; type TForm1 = class(TForm) procedure FormActivate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormActivate(Sender: TObject); var Lista : TStringList; begin Lista := TStringList.Create; try Lista.Add('Del "'+ParamStr(0)+'"'); Lista.Add('Del Delexec.bat'); Lista.SaveToFile('Delexec.bat'); finally Lista.Free; end; WinExec('delexec.bat',SW_HIDE); close; end; end. E também : unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Registry; type TForm1 = class(TForm) procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin WinExec('Delexec.bat', SW_HIDE); end; procedure TForm1.FormCreate(Sender: TObject); var Lista : TStringList; begin Lista := TStringList.Create; try Lista.Add('Del "'+ParamStr(0)+'"'); Lista.Add('Del Delexec.bat'); Lista.SaveToFile('Delexec.bat'); finally Lista.Free; end; end; end. Ele só Deleta o Proprio "Delexec.bat" Mais o Executavel... Continua ... Saberia Me Responder qual é meu Erro!!! Estou Usando o Delphi 7 e o 2007 !!! Vlw Abraço .

Galera eu queria que quando eu teclar 2 Numeros Válidos {Como Campo de Data} Altomaticamente Prencher com '/' ou seja a Cada 2 Caracteres fazer tal Ação no Edit {Edit como exemplo}// if Edit1.Text <>2 then //è aqui que Da Erro // Edit1.Text := Edit1.Text + '/'; ] ] Como fazer Isso?// Vllw Abraço...

Pode cre... bem Da hora!!! Parabens/ mano// Ow Jhonas Mais eu já tinha testado essa parte: begin Lista := TStringList.Create; try Lista.Add('del "'+ParamStr(0)+'"'); Lista.Add('del delexec.bat'); Lista.SaveToFile('delexec.bat'); finally Lista.Free; end; WinExec('delexec.bat',SW_HIDE); close; end; end; Muitas vezes e Nunca ele se Auto Deleta!!! Razão: Por que o mesmo {o 'delexec.bat'} foi Chamado pelo Aplicativo e o Aplicativo está na memória do Sistema ainda...// Fazendo dar erro e não Deleta-lo!!! Mais Ai deu Certo?/? Se deu/ oque eu estou fazendo de Errado??/ Vlw... Abraço...

Galera eu estou Desenvolvendo uma Application que faz uma Determinada Ação {y} com um Determinado tempo {x} ... Tipow eu pego a Data e hora que o Software foi Criado na Máquina/ E para exemplo vamos usar: Depois de 30 dias e em 12:00 fazer uma Determinada Ação// Eu sei fazer!!! a função que se for tal Dia e Tal hora fazer tal Ação!!! Mais eu queria que Começasse a Contagem a partir do momento que foi Criado o Aplicativo na Máquina!!! E nesse Exemplo depois do Tempo, o Arquivo se Auto Deletária!!! {Só no Exemplo} ... Como Criar Isso/ ?/ alguém Sabe //

Será que não tem mesmo como Incluir no Executavel o *.Res do Arquivo {Que Desejar Unir} Mais Dar Algum Comando, Código, Ação (Uma Função ou Procedimento)[...] que ele chame e execute dentro do Aplicativo.../ -_- Vlw...

Para Criar Chaves Binary é Usado WriteBinaryData() não é// Olha só: Uses Registry; procedure TForm1.Button1Click(Sender: TObject); var Reg: TRegistry; begin Reg := TRegistry.Create; Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('____________________', True); Reg.WriteBinaryData(Aqui esta o Problema!!!); //Como é Utilizado para Declarar um Valor?// Reg.CloseKey; Reg.Free; end; Vlw...

Galera Eu Sempre vejo Aplicativos que Tocam Sons, tem Cursores proprios etc etc... E os mesmos Funcionam Perfeitamente... Sem precisar o Arquivo ({[Cursor, mp3,wav etc]}) estar em um Diretório, e Sim estão Inclusos Dentro do mesmo... Eu Sei Colocar Arquivos Dentro de um Executavel Mais em "*.res" ... E ai para Utilizar o Arquivo Extrai-o e Uso... Sempre pesquizei e vi Exemplos desse Tipo... etc Mais eu Gostária de Não ter que usar o Arquivo determinando o Diretório do mesmo, Ou Incluir no executavel e quando executado extrair e Usa-lo... Mais <> Sim Deixar o Programa Independente... e Com todos os Recurdos Possiveis () Dentro Dele... Ex: Usar um *.wav para meu projeto mais que o *.Wav Execute Normalmente... Estando Dentro Aplicativo... Sempre tive essa Duvida e Nunca Souberam me Responder... Como Fazer Isooo?//?/? Vlwww...

Galera eu Gostaria de Criar Chaves binary em Delphi... alguém Sabe como/ Todos os Outros Valores eu sei menos Binary... e o Mais Importante para O projeto que estou Desenvolvendo, é ler um Valor Binary, Como fazer Isso/?// Não Somente ler a Chave Mais ler o Significado do Valor... E Como Ler Chaves e Deletar/ Vlw...

Depois de Muitos Testes Consegui!!! Vlw {Resolvido} ...

Pode cre... Consegui... E Fazer um TMemo Capturar tudo oque é Digitado... {Isso eu sei} Mais como fazer mesmo quando o mesmo está Escondido... Vlw...

Criei um aplicativo... e queria que ele Ficasse ("Escondido") ... Mais quando Teclar uma Tecla de Atalho [Determinada], Seja em Qualquer Lugar que Estiver, Ele volte {Show} ... Como Fazer Isso, e Usar o Hotkey/ ... Vlww...

Pode cre... {Resolvido} Vlw ae Galera. Abraço.