La función es FM_GetSpecialDirectory(directorio:string):string;
se debe cargar en uses la librería ShlObj

Parametros del atributo directorio

AppData
CdBurn
AdminTools
Cookies
StartMenu
Desktop
Favorites
Fonts
History
InternetCache
LocalAppData
MyMusic
MyImages
Metwork
MyDocuments
Printers
User
Programs
Shared
Sendto
Starmenu
Starmenuprog
System
Windows
Temp

Código

Uses ShlObj;
Function FM_GetSpecialDirectory(const directorio : string) : string;
var RecPath : PAnsiChar;
 CSIDL:integer;
begin
 if ansilowercase(directorio) = 'appdata' then  CSIDL := $001a;
 if ansilowercase(directorio) = 'cdburn' then  CSIDL := $003b;
 if ansilowercase(directorio) = 'admintools' then  CSIDL := $002f;
 if ansilowercase(directorio) = 'cookies' then  CSIDL := $0021;
 if ansilowercase(directorio) = 'startmenu' then  CSIDL := $0000;
 if ansilowercase(directorio) = 'desktop' then  CSIDL := $0010;
 if ansilowercase(directorio) = 'favorites' then  CSIDL := $0006;
 if ansilowercase(directorio) = 'fonts' then  CSIDL := $0014;
 if ansilowercase(directorio) = 'history' then  CSIDL := $0022;
 if ansilowercase(directorio) = 'internetcache' then  CSIDL := $0020;
 if ansilowercase(directorio) = 'localappdata' then  CSIDL := $001c;
 if ansilowercase(directorio) = 'mymusic' then  CSIDL := $000d;
 if ansilowercase(directorio) = 'myimages' then  CSIDL := $0027;
 if ansilowercase(directorio) = 'network' then  CSIDL := $0013;
 if ansilowercase(directorio) = 'mydocuments' then  CSIDL := $0005;
 if ansilowercase(directorio) = 'printers' then  CSIDL := $001b;
 if ansilowercase(directorio) = 'user' then  CSIDL := $0028;
 if ansilowercase(directorio) = 'programs' then  CSIDL := $0026;
 if ansilowercase(directorio) = 'shared' then  CSIDL := $002b;
 if ansilowercase(directorio) = 'recent' then  CSIDL := $0008;
 if ansilowercase(directorio) = 'sendto' then  CSIDL := $0009;
 if ansilowercase(directorio) = 'starmenu' then  CSIDL := $000b;
 if ansilowercase(directorio) = 'starmenuprog' then  CSIDL := $0007;
 if ansilowercase(directorio) = 'system' then  CSIDL := $0025;
 if ansilowercase(directorio) = 'windows' then  CSIDL := $0024;
 if ansilowercase(directorio) = 'temp' then  CSIDL := $0024;

 RecPath := StrAlloc(MAX_PATH);
 try
 FillChar(RecPath^,MAX_PATH,0);
 if SHGetSpecialFolderPath(0,RecPath,CSIDL,false) then begin
 result := RecPath;
 if ansilowercase(directori) = 'temp' then result := RecPath + '\temp';
 end else result := '';
 finally
 StrDispose(RecPath);
 end;
end;

su uso es muy fácil
FM_GetSpecialDirectory(‘windows’);

con eso obtenemos el directorio donde windows está instalado C:\windows en mi caso

En pascal hay la función delay que sirve para esperar un tiempo determinado antes de ejecutar la siguiente instrucción, en delphi carece de la función delay, pero con el siguiente truco conseguimos dicho efecto, podemos programar retardos en milisegundos, recuerda un segundo tiene 1000 milisegundos

procedure SYS_Delay(msecs:integer);
var
 FirstTickCount:longint;
begin
 FirstTickCount:=GetTickCount;
 repeat
 Application.ProcessMessages; {allowing access to other
 controls, etc.}
 until ((GetTickCount-FirstTickCount) >= Longint(msecs));
end;

Una técnica para avisar al usuario mientras tiene una ventana minimizada es hacerla parpadear en la barra de herramientas, un ejemplo claro lo hace el famoso programa de meseguería MSN Messenger, que cuando alguien nos habla y tenemos su ventana minimizada, empieza a parpadear hasta que la abrimos, con delphi es muy simple hacer parpadear una ventana con una sola función lo hacemos todo

FlashWindow(Handle,True);

En Handle le pasamos el Handle de la ventana que queramos hacerla parpadear, la función solo lo hace una vez, si queremos el efecto repetitivo, una solución seria ponerla dentro de un timer como el siguiente ejemplo

Timer1.Interval = n  (Tip for n = 1000  "1 second")

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 FlashWindow(Handle, true);
 FlashWindow(Application.Handle, true);
end;

Prevenir que nuestra aplicación en delphi se execute dos instancias a la vez, el truco está separado por dos partes

creamos una unidad nueva i le llamamos CheckPrevious.pas

unit CheckPrevious;

interface
uses Windows, SysUtils;

function RestoreIfRunning(const AppHandle : THandle; MaxInstances : integer = 1) : boolean;

implementation

type
PInstanceInfo = ^TInstanceInfo;
TInstanceInfo = packed record
PreviousHandle : THandle;
RunCounter : integer;
end;

var
MappingHandle: THandle;
InstanceInfo: PInstanceInfo;
MappingName : string;

RemoveMe : boolean = True;

function RestoreIfRunning(const AppHandle : THandle; MaxInstances : integer = 1) : boolean;
begin
Result := True;
MappingName := StringReplace(ParamStr(0), '\',  '', [rfReplaceAll, rfIgnoreCase]);
MappingHandle := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE,  0, SizeOf(TInstanceInfo), PChar(MappingName));

if MappingHandle = 0 then
RaiseLastOSError
else
begin
if GetLastError <> ERROR_ALREADY_EXISTS then
begin
InstanceInfo := MapViewOfFile(MappingHandle, FILE_MAP_ALL_ACCESS, 0, 0, SizeOf(TInstanceInfo));
InstanceInfo^.PreviousHandle := AppHandle;
InstanceInfo^.RunCounter := 1;

Result := False;
end
else //already runing
begin
MappingHandle := OpenFileMapping(FILE_MAP_ALL_ACCESS, False, PChar(MappingName));
if MappingHandle <> 0 then
begin
InstanceInfo := MapViewOfFile(MappingHandle, FILE_MAP_ALL_ACCESS, 0, 0, SizeOf(TInstanceInfo));
if InstanceInfo^.RunCounter >= MaxInstances then
begin
RemoveMe := False;
if IsIconic(InstanceInfo^.PreviousHandle) then
ShowWindow(InstanceInfo^.PreviousHandle, SW_RESTORE);
SetForegroundWindow(InstanceInfo^.PreviousHandle);
end
else
begin
InstanceInfo^.PreviousHandle := AppHandle;
InstanceInfo^.RunCounter := 1 + InstanceInfo^.RunCounter;

Result := False;
end
end;
end;
end;
end; (*RestoreIfRunning*)

initialization
//nothing special here
//we need this section because we have the
//finalization section

finalization
//remove this instance
if RemoveMe then
begin
MappingHandle := OpenFileMapping(FILE_MAP_ALL_ACCESS, False, PChar(MappingName));
if MappingHandle <> 0 then
begin
InstanceInfo := MapViewOfFile(MappingHandle, FILE_MAP_ALL_ACCESS, 0, 0, SizeOf(TInstanceInfo));
InstanceInfo^.RunCounter := -1 + InstanceInfo^.RunCounter;
end
else
RaiseLastOSError;
end;

if Assigned(InstanceInfo) then UnmapViewOfFile(InstanceInfo);
if MappingHandle <> 0 then CloseHandle(MappingHandle);

end. (*unit CheckPrevious*)

{
********************************************
Zarko Gajic
About.com Guide to Delphi Programming

http://delphi.about.com

email: delphi.guide@about.com
free newsletter: http://delphi.about.com/library/blnewsletter.htm
forum: http://forums.about.com/ab-delphi/start/
********************************************
}

y justo en la inicialización de la aplicación

program Project1;

uses
Forms,  Unit1 in 'Unit1.pas' {Form1},  CheckPrevious in 'CheckPrevious.pas';

{$R *.res}

begin
//permetir solo una instancia
if not CheckPrevious.RestoreIfRunning(Application.Handle, 1) then
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end;
end.

Fuente: delphiabout.com
Descarga: codigo fuente

Truco para Mostrar el dialogo de sistema “propiedades de fecha y hora”

uses ShellApi;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'control', 'date/time', nil, SW_SHOW);
end;

Relacionado: Mostrar el Administrador de Tareas
Fuente:  delphitricks.com

Con la función SetTaskBar podemos ocultar,mostrar,bloquear,desbloquear la barra de tareas de windows

SetTaskBar(TaskBarVisible:boolean=true;TaskBarEnabled:boolean=true): Boolean;

Los parametros que tenemos que pasar son
TaskBarVisible: Indicamos si queremos mostrar o ocultar la barra de tareas
TaskBarEnabled: Indicamos si queremos que este desbloqueada o bloqueada

Código de la función SetTaskBar

var
WndTaskbar: HWND;
begin
Result:=true;
WndTaskbar := FindWindow('Shell_TrayWnd', nil);//buscamos la barra de tareas
if TaskBarVisible then
ShowWindow(wndTaskbar, SW_SHOW)
else
ShowWindow(wndTaskbar, SW_HIDE);
if TaskBarEnabled then
EnableWindow(wndTaskbar, True)
else
EnableWindow(wndTaskbar, False);
end;

Su uso

SetTaskBar(true,false); //bloquea la barra de tareas
SetTaskBar(true,true); //desbloquea la barra de tareas
SetTaskBar(false); //oculta la barra de tareas
SetTaskBar(true); //muestra la barra de tares
SetTaskBar(); //muestra y desbloquea la barra de tareas

Inspiración: DelphiTricks

Con la función SendEmailByDefault podemos crear un email y enviarlo con el programa definido por el sistema, su declaración es la siguiente

Function SendEmailByDefault(Para:string=’user@host.com’;Titulo:string=’Te envio este email’;Contenido:string=’Ese es el contenido’):Boolean;

Los parametros que tenemos que pasar son
Para: Dirección email que queremos enviar el email
Titulo: Titulo del mensaje
Contenido: Cuerpo del mensaje que puede ser texto llano o bien HTML enrrequecido

Código de la función SendEmailbyDefault

uses ..., ShellApi;
...
Function SendEmailByDefault(Para:string='user@host.com';Titulo:string='Te envio este email';Contenido:string='Ese es el contenido'):Boolean;
var
Parametros:string;
begin
Result:=true;
try
Parametros := 'mailto:' + Para + '?subject=' + Titulo + '&Body=' + Contenido;
ShellExecute(Form1.Handle, 'open', PChar(Parametros), nil, nil, SW_SHOWNORMAL);
except
Result:=true;
end;
end;

Recueda en declarar en uses la libreria ShellApi para poder utilizar funciones de la Win32Api de windows

Su uso

procedure TForm1.Button2Click(Sender: TObject);
begin
SendEmailByDefault('usuario@usuario.com','Buenas tardes','Para mas informacion llamame');
end;

en mi caso tengo configurado el Thunderbird como programa de correo por defecto, me pide la clave de mi correo y lo envia

procedure TForm1.FormCreate(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_HIDE) ;
SetWindowLong(Application.Handle, GWL_EXSTYLE, getWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW) ;
ShowWindow(Application.Handle, SW_SHOW) ;
end;

justo en la creacion del formulario principal de la aplicación le decimos que no aparezca en la barra de tareas executadas

Fuente:  Delphi About
testeada con delphi 7.0

Set de funciones para pasar de decimal a binario decimal octal, natural a romano y viceversa de binario a decimal, octal a decimal y romano a natural, para sistema hexadecimal delphi dispone de IntToHex y HexToInt

Listado de Funciones

• IntToBin
• BinToInt
• IntToOctal
• OctalToInt
• IntToRoman
• RomanToInt

Código de las funciones agrupadas

//----- Funciones para base binario
Function IntToBin ( Numero: LongInt; Digits: integer=8): string;
begin
result := StringOfChar ( '0', Digits ) ;
while Numero > 0 do begin
if ( Numero and 1 ) = 1 then
result [ digits ] := '1';
dec ( digits ) ;
Numero := Numero shr 1;
end;
end;

Function BinToInt(Numero: String): LongInt;
var i: Integer;
begin
Result:=0;
//quita los ceros delanteros
while Copy(Numero,1,1)='0' do Numero:=Copy(Numero,2,Length(Numero)-1) ;
//crea la conversion
for i:=Length(Numero) downto 1 do
if Copy(Numero,i,1)='1' then
Result:=Result+(1 shl (Length(Numero)-i)) ;
end;

//----- Funciones para base Octal
Function IntToOct(Numero: Longint; digits: Integer=8): string;
var
rest: Longint;
oct: string;
i: Integer;
begin
oct := '';
while Numero <> 0 do
begin
rest  := Numero mod 8;
Numero := Numero div 8;
oct := IntToStr(rest) + oct;
end;
for i := Length(oct) + 1 to digits do
oct := '0' + oct;
Result := oct;
end;

function OctToInt(Numero: string): Longint;
var
i: Integer;
int: Integer;
begin
int := 0;
for i := 1 to Length(Numero) do
begin
int := int * 8 + StrToInt(Copy(Numero, i, 1));
end;
Result := int;
end;

//----- Funciones para numeros Romanos
Function IntToRoman(Numero: LongInt): String;
const
Arabes: Array[1..13] of Integer = (1,4,5,9,10,40,50,90,100,400,500,900,1000) ;
Romanos: Array[1..13] of String = ('I','IV','V','IX','X','XL','L','XC','C','CD','D','CM','M') ;
var
i: Integer;
begin
for i := 13 downto 1 do
while (Numero >= Arabes[i]) do begin
Numero := Numero - Arabes[i];
Result := Result + Romanos[i];
end;
end;

function RomanToInt(const roman: string) : LongInt;
var
i: integer;
lastChar: Char;
begin
result := 0;
lastChar := ' ';
for i := Length(roman) downto 1 do
begin
case roman[i] of
'I': if (lastChar = 'X') or (lastChar = 'V') then
Dec(result) else Inc(result);
'V': Inc(result, 5);
'X': if (lastChar = 'C') or (lastChar = 'L') then
Dec(result, 10) else Inc(result, 10);
'L': Inc(result, 50);
'C': if (lastChar = 'M') or (lastChar = 'D') then
Dec(result, 100) else Inc(result, 100);
'D': Inc(result, 500);
'M': Inc(result, 1000);
end;
lastChar := roman[i];
end;
end;

Muestra de uso de la funciones

var
Numero_dec,Numero_dec1,Numero_dec2: Integer;
Numero_bin: String;
Numero_oct: String;
Numero_rom: String;
begin
Numero_dec := 123;
Numero_bin := IntToBin(Numero_dec);
Numero_oct := IntToOct(Numero_dec);
Numero_rom := IntToRoman(1999);

memo1.Lines.Clear;
memo1.Lines.add('Binario: ' + Numero_bin);
memo1.Lines.add('Octal: ' + Numero_oct);
memo1.Lines.add('Romano: ' + Numero_rom);

Numero_dec := BinToInt('01111011');
Numero_dec1 := OctToInt('173');
Numero_dec2 := RomanToInt('MCMXCIX');

memo1.Lines.add('Bin to decimal: ' + IntToStr(Numero_dec));
memo1.Lines.add('Oct to decimal: ' + IntToStr(Numero_dec1));
memo1.Lines.add('Roman to decimal: ' + IntToStr(Numero_dec2));
end;

Obtendremos

Fuentes: forosclubdelphi, delphitricks.com

Agregar procedure WMNCHitTest( var Msg : TWMNCHitTest );  message wm_NCHitTest; en  la parte private de la clase Tform

TForm1 = class(TForm)
....
private
procedure WMNCHitTest( var Msg : TWMNCHitTest );  message wm_NCHitTest;
{ Private declarations }

y en la sección implementation poner el codigo de la función WMNCHitTest

procedure TForm1.WMNCHitTest( var Msg : TWMNCHitTest );
begin
inherited;
if( Msg.Result = htClient )then   Msg.Result := htCaption;
end;

Truco relacionado: Ocultar el titulo de un formulario en delphi
Fuentes: Chami.com Tips