1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

var
  Outlook: OutlookApplication;
  NmSpace: NameSpace;
  MI: MailItem;

begin

  Outlook := CoOutlookApplication.Create;
  NmSpace := Outlook.GetNamespace('MAPI');
  NmSpace.Logon('', '', False, False);

  MI := Outlook.CreateItem(olMailItem) as MailItem;
  MI.Recipients.Add('mambo@dnet.it');
  MI.Subject := 'Testmail';
  MI.Body := 'Hallo ! Das ist ein Testmail aus Delphi! ';
  MI.Display(0);
end					

1:
2:
3:
4:

if FindWindow('rctrl_renwnd32',nil) <> 0 then
  ShowMessage('Outlook ist gestartet')
else
  ShowMessage('Outlook ist nicht gestartet');					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

var
  Instance: THandle;
begin
  Instance := CreateMutex(nil,True,'Project1');
  if GetLastError = Error_Already_Exists then
  begin
    ShowMessage('Programm wurde schon gestartet');
  end
  else
  begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
    CloseHandle(Instance);
  end;
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

if GetLastError = Error_Already_Exists then
  begin
    SendMessage(findwindow('TForm1',nil),WM_SYSCOMMAND,SC_RESTORE,0);
    SetForegroundWindow(findwindow('TForm1',nil));
  end
else
  begin
    ...
  end;

ReleaseMutex(Instance);