Impedir que o form seja fechado com Alt+F4 no Delphi

Este é um problema fácil de resolver. Vejamos porque.

Toda vez que um form recebe um comando para ser fechado, 
tal como Form1.Close ou mesmo uma mensagem WM_CLOSE, o evento
OnCloseQuery é disparado. Este evento passa um parâmetro por
referência normalmente chamado CanClose. Se alternarmos o valor
deste parâmetro para false o processo de fechar o formulário 
será cancelado.

 Consulte mais informação

Anexar dois forms no Delphi

É comum encontrarmos aplicativos que possuem dois ou mais
formulários que se mantém o tempo todo "colados" um ao outro.
É o caso, por exemplo, do conhecido Winamp. Como fazer isto 
em aplicações Delphi? Vamos aos passos:

 Consulte mais informação

Forçar foco em janela no Delphi

As funções abaixo forçam para que a janela informada fique em primeiro plano.
Primeira alternativa Consulte mais informação

Reproduzir um vídeo AVI em um Form no Delphi

  - Crie um novo projeto. Este já deverá ter o Form1;
  - Adicione um novo Form (Form2);
  - Coloque, no Form1, um TMediaPlayer (paleta System)
    e um botão;
  - Altere o evento OnClick do botão como abaixo:
  
 Consulte mais informação

Reproduzir um arquivo de som WAV sem o TMediaPlayer – 2 no Delphi

Inclua na seção uses: MMSystem

PlaySound('C:\Som.wav', 1, SND_ASYNC);

Usar eventos de som do Windows no Delphi

{ Evento Som Padrão }
MessageBeep(0); { ou Beep; }

{ Evento Parada Crítica }
MessageBeep(16);

 Consulte mais informação

Reproduzir um arquivo de som WAV sem o TMediaPlayer no Delphi

Inclua na seção uses: MMSystem

{ Síncrona: aguarda terminar a reprodução para continuar: }
SndPlaySound('C:\SOM.wav', SND_SYNC);

 Consulte mais informação

Preparando e-mail via programação no Delphi

Inclua na seção uses: ShellApi

Problema:

Desejo que meu programa prepare e-mail e abra o Outlook Express 
para enviá-lo.

 Consulte mais informação

Enviando e-mail no Delphi

Fazer um aplicativo completo para manipulação de e-mails é um
tanto trabalhoso e não é o assunto desta dica. Muitas vezes,
porém, queremos apenas dar ao nosso software a capacidade de 
enviar simples e-mails. Isto é fácil, especialmente porque o 
Delphi5 nos oferece o componente TNMSMTP (paleta FastNet) que 
faz praticamente todo o trabalho para nós. Precisamos apenas
alterar algumas propriedades e chamar alguns métodos para que
a mensagem seja enviada. Vamos para a prática:

 Consulte mais informação

Verificar se está conectado à Internet no Delphi

A função abaixo retorna true se estiver conectado e false 
caso contrário.

function RemoteConnection: boolean;
const
  Key = '\System\CurrentControlSet\Services\RemoteAccess';
  Value = 'Remote Connection';
var
  Reg: TRegistry;
  Buffer: DWord;
begin
  Result := false;

 Consulte mais informação

Desativar PopupMenu do TWebBrowser no Delphi

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw;

 Consulte mais informação

Verificar se um arquivo existe no Delphi

Inclua na seção uses: SysUtils, Dialogs

if FileExists('c:\carta.doc') then
  ShowMessage('O arquivo existe')
else
  ShowMessage('O arquivo não existe');

Consulte mais informação

Verificar se um diretório existe no Delphi

Inclua na seção uses: FileCtrl, Dialogs

if DirectoryExists('C:\MEUSDOCS') then
  ShowMessage('O diretório existe')
else
  ShowMessage('O diretório não existe'); 

Consulte mais informação

Verificar se uma unidade de disco (disk-drive) está preparada no Delphi

Inclua na seção uses: System, SysUtils

{ - Crie um novo projeto;
  - Na seção implementation da Unit1 digite a função abaixo: }

 Consulte mais informação

Excluir arquivos usando curingas (*.*) no Delphi

{ - Coloque um Button no Form;
  - Altere o evento OnClick do Button conforme abaixo: }

procedure TForm1.Button2Click(Sender: TObject);
var
  SR: TSearchRec;
  I: integer;
begin
  I := FindFirst('c:\Teste\*.*', faAnyFile, SR);
  while I = 0 do begin
    if (SR.Attr and faDirectory) <> faDirectory then
      if not DeleteFile('c:\Teste\' + SR.Name) then
        ShowMessage('Não consegui excluir c:\Teste\' + SR.Name);
    I := FindNext(SR);
  end;
end;

Consulte mais informação