// Anzeige aller internen Befehle von 40tude Dialog
// Ausgabe in Datei (Pfad anpassen!) bzw. in der Debug-Anzeige
//
// Bearbeitet nach [Quelle]:
// Maria Luisa C. (MLC) am 19.12.2003 in news.software.readers
// Message-ID: <17ll05gsjz7a7.dlg@ID-187316.user.uni-berlin.de>

Program AlleBefehleAnzeigen;  
Const    
  // Hier den Namen und den Pfad der Ausgabedatei anpassen!
  // Leerstring ('') erzeugt die Liste in der Debug-Ausgabe
  Filename = 'C:\Portabel\40tude_Dialog\AlleBefehle.txt';
Var
  MyString: String;
  MyList: TStringList;

Begin
  If Filename = '' Then
    WriteLn(GetActionList())
  Else
    MyList := TStringList.Create();
    MyString := GetActionList;
    Try
      MyList.Add(myString);
      MyList.SaveToFile(filename);
      Beep
    Finally
      MyList.free;
    End;
End.