Comandos para controlar o windows

//Reiniciar o Windows
ExitWindowsEx(EWX_REBOOT,0);
//Desligar o Windows
ExitWindowsEx(EWX_SHUTDOWN,0);
//Força todos os programas a se desligarem
ExitWindowsEx(EWX_FORCE,0);

Rodando sons wave

{O componente TMediaPlayer permite a execução de arquivos do tipo Wave, MIDI e CD Audio, entre outros. Só que é bastante trabalhoso abrir um simples Wave sem exibir os controles do componente (a não ser que use Visible como False, mas há uma forma mais simples:}

SndPlaySound ('Drive:DiretórioArquivo.wav', SND_ASYNC);

//Não se esqueça de colocar na cláusula Uses a unit MMSystem.

Trocando ponto por vírgula em tedits

{A maioria dos teclados possui apenas o ponto no teclado numérico. Mas se você precisar utilizar a vírgula como separador decimal, utilize a seguinte rotina no evento OnKeyPress do Edit: (lembre-se que DecimalSeparator contém o separador decimal (que não necessáriamente está em português). Veja em Internacional no Painel de Controle)}
begin
if key = '.' then
key:= DecimalSeparator;
end;

Nome do usuário na rede

//Para pegar o nome do usuário atual da rede, faça o seguinte:

function NetUser : string;
var
szNetName: array [0..48] of char;
iResult: DBIResult;
begin
iResult := DBIGetNetUserName (szNetName);
if iResult <> DBIErr_None then
DBIError (iResult)
else
Result := StrPas (szNetName);
end;
//Não se esqueça de colocar cláusula Uses do form as units DBIProcs, DBITypes, DB e DBIErrs.

Como deixar o form transparente

Unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormShow(Sender: TObject);
begin
Brush.Style := BsClear;
end;
end.

Paradox em rede

{Para acessar bancos de dados Paradox em uma rede utilizando Windows, faça o seguinte:
Abra o BDE Administrator; Na aba Configuration, escolha a "pasta" Drivers|Native|PARADOX e altere NetDir para o nome do servidor (no formato de rede - ex: \ServidorCompartilhamento); Na "pasta" System|INIT, altere LocalShare para True; Altere o diretório do alias para o nome do servidor (também no formato de rede).}

Executando programas externos(simples)

{Se você precisa abrir programas externos no seu aplicativo DELPHI, como a calculadora do Windows, por exemplo, inclua a seguinte linha no seu programa:}

WinExec('calc.exe', sw_show);

{'calc.exe' é o nome do programa. Caso queira abrir um outro programa, altere este nome.}