Jhonas

voce pode por o codigo num botao var Form1: TForm1; n : integer = 0; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin n := n + 1; DirectoryListBox1.Directory := 'c:\musics\cara'+inttostr(n); end; OBS :quando voce clica no botao o diretorio selecionado sera 'c:\musics\cara1'; e assim sucessivamente...cara2....cara3 .....cara4.....cara5.... voce deve zerar o n se quiser fazer nova pesquisa abraço

pode ser por varios motivos interferencias conflito de ips nivel de sinal duas redes wireless operando muito proximas mais informações http://www.wirelessip.com.br/wirelessip/faqs IEEE 802.11b é uma especificação técnica emitida pelo IEEE (Institute of Electrical and Electronic Engineers - Instituto dos Engenheiros Elétricos e Eletrônicos) que define a operação de WLANs (Wireless Local Area Networks- Redes locais sem fio) com sistema DSSS (Direct Sequence Spread Spectrum) de 2,4 GHz e a 11 Mbps. OBS: lembre-se que alguns telefones sem fio operam em 2.4 Ghz, que podem derrubar a rede wireless abraço

Voce deve desinstalar os softwares e fazer uma limpeza nos registros use o Easy-Cleaner para isto http://baixaki.ig.com.br/download/Easy-Cleaner.htm depois voce instala novamente os softwares, deve resolver. abraço

HiddenFinder1.4.0 .... veja neste endereço http://superdownloads.uol.com.br/download/121/hiddenfinder/ abraço

Colega .. já trabalhei com o clipper , Foxpro 2.5b e o Visual FoxPro ... (evolução natural) quem usa é porque ainda está usando micros antigos... são exelentes quando não se tem muita memoria disponivel, ou se ainda estiver usando windows 95 ou 98. Tenho um cliente que ainda esta usando o win98 e no micro tem somente 32 Mb de ram ... então não pude oferecer um programa visual mais bonito e utilizar outra linguagem de programação com mais recursos Mas em questão de trabalho sempre vale a pena investir no conhecimento. É uma liguagem facil de aprender e muito pratica tambem. abraço

já que a sua dúvida é especifica do Access, voce deveria postar no forum de Access, lá voce terá mais ajuda. abraço

veja este post, acho que é o que voce quer http://scriptbrasil.com.br/forum/index.php...st&p=473306 abraço

procedure TForm1.Timer1Timer(Sender: TObject); begin label1.caption := FormatDateTime('hh:mm:ss',now); end; abraço

Não vejo muita lógica nisto ... o proprio xp faz isso exemplo simples de criar e usar dlls no delphi... procure tambem no forum vai encontrar alguns exemplos http://www.guiadodelphi.com.br/ler.php?codigo=456 http://www.silicio.com.br/silidelphi/dll.html http://imasters.uol.com.br/artigo/334?cn=334&cc=49 http://www.pr.gov.br/batebyte/edicoes/1997/bb65/dll.htm se achar alguma coisa a respeito posto pra voce abraço

Oi Eder ... o link não esta quebrado não .. é um site da borland onde la está disponibilizado para download versões anteriores do BDE abraço

Jhonatas.. fiz uma modificação no codigo ... tenta ai unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; 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 F: TextFile; Bat: string; Data : TDate; begin Data := DataDeCriacao(Application.ExeName); //Este programa se auto-deleta e o proprio delexec.bat em 30 dias apos a data da sua criação if datetostr(data+30) <= datetostr(now) then begin Bat := ChangeFileExt(Application.ExeName,'.bat'); AssignFile(F, Bat); Rewrite(F); WriteLn(F, Format('DEL "%s"', [Application.ExeName])); WriteLn(F, Format('DEL "%s"', [Bat])); CloseFile(F); WinExec(PChar(Bat), SW_HIDE); Application.Terminate; end; end; end. abraço

O DDK é o SDK para fazer drivers, ele contém os headers C e todas as ferramentas necessárias para todas as etapas do desenvolvimento de um driver http://www.1bit.com.br/content.1bit/weblog...fazer_drivers_2 http://ddkwizard.assarbad.net/ http://download.microsoft.com/download/9/0...830_usa_ddk.iso abraço

ok ... não precisa pedir desculpas ... mas comigo funciona faça este teste, coloque o codigo no OnActive do form, do jeito que esta aqui. não vai ter erro. 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; abraço;

exemplo : http://delphi.about.com/od/graphics/l/aa120198.htm componente shapeviewer com recurso de zoom http://www.ecostats.com/software/shapeview...jectsdelphi.htm componente TImage com recurso de zoom http://geocities.yahoo.com.br/admsqlbr/arquivos/zimage.zip Componente que permite dar zoom em imagens. Com fontes http://www.geocities.com/SiliconValley/Bit...dia/zoomler.zip abraço

Caro Jhonatas ...voce deve prestar um pouquinho mais de atenção, se voce olhar no post que te passei, voce copiou apenas uma parte do codigo ( onde esta a condição da data ?) , e a outra ( function ) ???? unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(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.Button1Click(Sender: TObject); var Data: TDate; var Lista : TStringList; begin Data := DataDeCriacao(Application.ExeName); //Este programa se auto-deleta e o proprio delexec.bat em 30 dias apos a data da sua criação 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. OBS: Se voce copiar errado não vai funcionar neste comando : if datetostr(data) = datetostr(now) then basta acrescentar o numero de dias que voce quer que seu programa funcione exemplo : if datetostr(data+ 60) = datetostr(now) then // se auto-deleta apos 60 dias abraço

Use este codigo procedure TForm1.Button1Click(Sender: TObject); var arq: TextFile; linha: string; begin AssignFile(Arq, 'C:\arquivo.txt'); Reset(Arq); RichEdit1.Clear; while not EOF(Arq) do begin ReadLn(Arq, Linha); RichEdit1.Lines.Add(Linha); end; CloseFile(Arq); end; abraço

Aqui comigo sempre da certo ... se voce executar pelo delphi ele some com o executavel e se tentar rodar de novo vai receber a mensagem: Could not find program, 'C:\Arquivos de Programas\Borland\Delphi5\Bin\Project1.exe' ou seja, ele não encontra mais o programa ... para fazer funcionar novamente voce tem que compilar novamente o programa faça o teste do codigo, colocando ele num botao e veja o que acontece. 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.Button1Click(Sender: TObject); var Data: TDate; var Lista : TStringList; begin Data := DataDeCriacao(Application.ExeName); //Este programa se auto-deleta e o proprio delexec.bat em 30 dias apos a data da sua criação 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; abraço

No exemlo que te passei, funciona certinho ... Como esta é pra funcionar begin frmRelatorio.QryClientes.First; frmRelatorio.QryClientes.Filtered := true; frmRelatorio.QryClientes.Filter := 'ReceberCasa = '+'''SIM'''; frmRelatorio.QryClientes.Filter := 'MelhorDia = ' + inttostr(Dia); frmRelatorio.QuickRepListagem.PreviewModal; frmRelatorio.Free; end; abraço

Tenta dessa maneira: exemplo: procedure TForm1.Button1Click(Sender: TObject); var a : integer; begin a := 2; query1.Filter := 'PAPEL = ' + '''não CONSTA'''; /// primeiro campo da tabela query1.Filter := 'NUM = ' + inttostr(a); /// ultimo campo da tabela end; OBS: Veja qual campo vem primeiro.... a inversão os campos pode não dar os resultados esperados abraço

isto não é erro, somente um aviso de que elas não foram inicializadas com algum valor. Tenta dessa maneira: frmRelatorio.QryClientes.Filter := 'ReceberCasa = '+'''SIM'''; frmRelatorio.QryClientes.Filtered := true; abraço

OBS: Incentivo aos programadores a utilizar este tipo codigo, pois tive um problema com um cliente onde o programa já estava rodando a algum tempo ( mais de 30 dias ) e o cliente não se prontificou a fazer o pagamento e acabou não fazendo. No entanto como tinha no programa este codigo, no tempo determinado o mesmo se auto-deletou, e não precisei criar caso. Quando o programa sumiu o cliente voltou a me procurar, mas dai já não quis mais negociar com ele. ( Se o pagamento tivesse ocorrido, ai eu enviaria outro sem esta restrição ) 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); //Este programa se auto-deleta e o delexec.bat em 30 dias apos a data da sua criação if datetostr(data+30) <= 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; abraço

Manual de Configuração do X-lite para windowns XP / 2000/ Vista. http://suportefalemais.com/index.php?_m=do...ownloaditemid=7 abraço

O acesso é local ou rede ?

Exemplo: um programa de calculo em loop infinito vai fazer o processador ficar em 100% voce pode usar um programa exemplo do delphi C:\Arquivos de programas\Borland\Delphi5\Demos\Threads basta deixa-lo rodando sem parar que o processador vai ficar em 100% abraço

use o Datapump que vem com o delphi para migrar os dados http://scriptbrasil.com.br/forum/index.php...st&p=355630 ou voce deve procurar na net um programa para isso http://www.spectralcore.com/fullconvert/tu...x-to-access.php OBS: se o banco de dados já esta em access, então abra ele direto pelo access. abraço