s3c

porque você não guarda o caminho do Databasename no registro do windows?

Mas se você utiliza acesso via BDE, a mudança no código é praticamente nula. Seu único trabalho vai ser o de exportar as tabelas do Paradox e importar no Interbase.

Já ouví muitas reclamações do Paradox e uma delas é que ele costuma perder os índices e você tem que ficar recriando-os. porque você não tenta o Interbase? é gratuito, rápido e seguro.

A função KillTimer retorna um boolean, deu erro porque você escreveu demais. Tire o "<> null"

No próprio relógio da máquina, ao menos na minha, a hora é certa, mas o ponteiro dos segundos as vezes é mais lento, outras é mais rápido.

O único jeito que arrumei foi fazer um for incrementado uma variável e a cada milissegundo do timer ele me retorna o valor do contador; daí um for de 1 a contador/5 seria os 200 microssegundos. O problema é que não é preciso e varia em cada processador e condições de memória da máquina. Acho que o límite mínimo do timer é justamente para não afetar a performance do processador. Bom, qualquer ajuda é bemvinda. Obrigado !!!

Certa vez me deparei com um problema: Como mover uma imagem no form através do teclado? Aqui está um código de hook procedure local que intercepta as 4 setas do teclado. procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure Movimento(var Msg:TMessage); message WM_USER+1; var Form1: TForm1; HC_KEYBOARD_Handle:THandle; // Handle da hook implementation {$R *.dfm} // hook função tipo teclado function KeyboardProc(nCode:Integer; wParam:WPARAM; lParam:LPARAM):LRESULT; stdcall; begin if wParam in [37,38,39,40] then SendMessage(Form1.Handle, WM_USER+1, wParam, lParam); Result := CallNextHookEx(HC_KEYBOARD_Handle, nCode, wParam, lParam); end; // instala hook procedure local procedure TForm1.FormCreate(Sender: TObject); begin HC_KEYBOARD_Handle := SetWindowsHookEx(WH_KEYBOARD, @KeyboardProc, 0, GetCurrentThreadID); end; // libera a hook procedure procedure TForm1.FormDestroy(Sender: TObject); begin UnhookWindowsHookEx(HC_KEYBOARD_Handle); inherited; end; // se a hook interceptou as setas do teclado, manda uma msg p/ cá procedure TForm1.Movimento(var Msg:TMessage); begin Case Msg.wParam of 37 : Image1.Left := Image1.Left-1; 39 : Image1.Left := Image1.Left+1; 38 : Image1.Top := Image1.Top-1; 40 : Image1.Top := Image1.Top+1; end; end. Obs: só funciona dentro da aplicação. As hooks globais são um pouco mais complicadas.

O maior problema dos windows 9x é que os aplicativos rodam junto com o kernel do sistema; com isto um aplicativo mal comportado pode facilmente travar todo o windows. Já na família NT, os aplicativos rodam em um espaço de memória exclusivo, desvinculando-se assim dos processos que rodam em modo kernel, assim sendo o sistema operacional raramente trava e você pode facilemnte detectar um problema. Mude para NT ou XP e terás feito um bom negócio!!!

O bitmap pode ser mudado pelo FindWindowEx e SendMessage BotaoAtual := FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button', nil); NovoBotao := TBitmap.create; NovoBotao.LoadFromFile('Caminho.bmp'); VelhoBotao := SendMessage(StartButton, BM_SetImage, 0, NovoBotao.Handle); // no caso aqui o sendmessage retorna em lresult o handle da img modificada // para voltar SendMessage(BotaoAtual,BM_SetImage,0,VelhoBotao) ; NovoBotao.Free; Se for só o texto, então é só modificá-lo no Explorer.exe com um editor binário.

O timer lento que quiz dizer é o TTimer do Delphi.

Alguém por aí saberia fazer um timer cujo intervalo mínimo fosse <= 200 microssegundos, ou seja, a quinta parte do milissegundo?

Bom, fornecer código de procedures hook não é tão simples. Meu conselho é: Vejam o help das apis SetWindowsHookEx, CallNextHookEx e UnhookWindowsHookEx p/ vocês entenderem o que elas fazem. Daí vocês podem escrever códigos da forma como acharem melhor.

var vl:Double; begin vl := Trunc(240 * 1.08334 * 100) / 100; // arredonda p/ 2 decimais vl := Trunc(240 * 1.08334 * 1000) / 1000; // arredonda p/ 3 decimais end;

uses DateUtils; procedure Retorne_AMD(dIni,dFim:TDate; var wAnos:Word; var wMeses:Word; var wDias:Word); begin wAnos := 0; wMeses := 0; wDias := 0; if dIni > dFim then Exit; wAnos := YearsBetween(dFim, dIni); wMeses := MonthsBetween(dFim,dIni) - wAnos*12; if DayOf(dIni) > DayOf(dFim) then if MonthOf(dFim) = 1 then dIni := EncodeDate(YearOf(dFim)-1, 12, DayOf(dIni)) else dIni := EncodeDate(YearOf(dFim), MonthOf(dFim)-1, DayOf(dIni)) else dIni := EncodeDate(YearOf(dFim), MonthOf(dFim), DayOf(dIni)); wDias := DaysBetween(dFim, dIni); end;

Qual o data type do campo salário que está no banco?

procedure TForm1.FormCreate(Sender: TObject); var f:TextFile; begin if not FileExists(ExtractFileDir(Application.ExeName)+'\Notas.txt') then begin AssignFile(f, ExtractFileDir(Application.ExeName)+'\Notas.txt'); Rewrite(f); CloseFile(f); end; end;

Eu não entendí. você quer compilar ou transferir o executável de um lugar p/ outro?

uses ShellApi; ShellExecute(Handle, 'Open', PChar('Nome do Arquivo'), nil, PChar('Caminho do Diretorio'), SW_SHOW);