// Wer mit Outlook-XP (Outlook 2002) arbeitet, hat bestimmt schon fest-
// gestellt, dass es nicht mehr möglich ist, bestimmte Dateianhänge
// (z.B. *.EXE) zu öffnen. Das ist ein wirksamer Schutz für Ihren Rechner.
// Allerdings bekommt man manchmal selbstentpackende Archive zugeschickt,
// von denen man weiß, dass sie ungefährlich sind. Um an diese heranzukommen,
// kann man das folgende Programm benutzen. Dazu wird zunächst Outlook
// geschlossen und dann dieses Programm gestartet. Nun hat man 1 Minute zeit,
// Outlook wieder zu öffen. Danach kann man die entsprechenden Dateianhänge
// speichern, solange Outlook geöffnet bleibt. Beim nächsten Start von Outlook
// (nach dieser einen Minute), ist alles wieder beim alten.
// HINWEIS:
// Der Code wird im Projekt-Quelltext eingetragen.
 

// Getestet mit D4 unter WinME
 

program outlook; 
 
uses Windows, Forms, Registry; 
 
var 
  Reg: TRegistry; 
 
const 
  Value = 'Level1Remove'; 
  lauf: boolean = false; 
  TimerID: Integer = 1; 
 
procedure OnTimer; 
begin 
  Reg.deletevalue(Value); 
  killtimer(application.handle, TimerID); 
  lauf := false; 
end; 
 
begin 
  Reg := TRegistry.Create; 
  Reg.RootKey := HKEY_CURRENT_USER; 
  if Reg.OpenKey('\Software\Microsoft\Office\10.0\Outlook\Security', True) 
    then begin 
    Reg.writestring(Value, 'exe; com'); // und/oder andere Endungen 
    lauf := true; 
    settimer(application.handle, TimerID, 60000, @OnTimer); // 1 Minute 
  end; 
  repeat 
    application.processmessages; 
  until not lauf; 
  Reg.CloseKey; 
  Reg.Free; 
 
end.