Re: [delphi-br] Mensagem Windows - mudança de data

Cristina Me desculpe me meter, mas se você só quer saber se a data mudou, experimente o seguinte: procedure TForm1.Timer1Timer(Sender: TObject); begin If TimeToStr(Now) = '00:00:00' then ShowMessage('Mudou a data!'); end; Este procedimento só funcionará no caso da coincidência de hora,

Re: [delphi-br] Não permitir inciar o mesmo programa 2 vezes

Veja se esta funciona... function TfrmSplash.AppIsRunning(ActivateIt: boolean): Boolean; // // Testa se a sua aplicacao já esta sendo executada // var hSem : THandle; hWndMe : HWnd; AppTitle: string; begin Result := False; AppTitle := Application.Title; hSem := CreateSemaphore(nil, 0, 1,