// 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.