Inclua na seção uses: Windows
{ Ativa a proteção de tela do Windows,
se estiver configurada. }
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_SCREENSAVE, 0);
Autor: Daniel P. Guimarães...
- Declare a função abaixo antes da palavra implementation:
function RegisterServiceProcess(dwProcessID, dwType: Integer):
Integer; stdcall; external `KERNEL32.DLL`;
- Coloque dois botões no Form;
- No evento OnC...
Inclua na seção uses: Registry
Problema:
Criei um editor de textos no Delphi. Agora gostaria que o
Windows Explorer usasse este editor para abrir arquivos com
a extensão .dpg e .dan. Como fazer?
Solução:
P...
Inclua na seção uses: Windows
{ Esta procedure pega a linha e coluna da célula onde estiver
o mouse. Valores negativos para Linha ou Coluna indicam que
o mouse está fora da área cliente do StringGrid }
proced...
Inclua na seção uses: SysUtils
{ Esta função retorna true se a data passada como parâmetro
é fim de mês. Retorna false caso contrário. }
function tbFimDoMes(const Data: TDateTime): boolean;
var
Ano, Mes,...
Problema:
Em determinadas partes no programa existem processos que podem
demorar vários minutos para serem concluídos. Muitas vezes o
usuário desiste e deseja cancelar o processamento. Como
permitir este cancelament...
Ajuda Delphi
Copyright (c) 2006 :: Todos os direitos reservados
Ao copiar algum texto de site, favor destacar a fonte deixando os créditos do mesmo.