hi,
ich möchte ein programm schreiben, dieses auf cd brennen und als boot-menü benutzen.
in dem bootmenü gibt man dann einfach z.b. xfdisk ein und xfdisk wird dann (unter dos) gestartet.
funktioniert dafür eine normale konsolenanwendung von delphi?
wenn ja, kann mir jemand einen link zu einem tutorial (oder einer befehlsammlung) für reine konsolenanwendungen geben (die in einem solchen boot-menü funktionieren)?
und vielleicht noch eins für boot-menüs?
hier der quellcode (bitte verbesserungsvorschläge):
Delphi-Quellcode:
program myprog;
{$APPTYPE CONSOLE}
uses System;
var a: String;
const TAB = #9;
O_EXIT = 'exit';
O_XFDISK = 'xfdisk';
O_GHOST = 'ghost';
O_HELP = 'help';
procedure help;
begin
writeln;
writeln(#201#205#205#205#205#205#205#205#205#205#205#205#205
#205#205#205#203#205#205#205#205#205#205#205#205#205#205#205
#205#205#205#205#205#205#205#205#205#205#205#205#205#205#205
#205#205#205#205#205#187);
writeln(#186+' Hilfe'+TAB+TAB+#186+TAB+TAB+TAB+TAB+#186);
writeln(#204#205#205#205#205#205#205#205#205#205#205#205#205
#205#205#205#188+TAB+TAB+TAB+TAB+#186); //42leertasten
writeln(#186+TAB+TAB+TAB+TAB+TAB+TAB+#186);
writeln(#186#32+O_EXIT+TAB+TAB+': Programm beenden'+TAB+TAB+#186);
writeln(#186#32+O_XFDISK+TAB+': XFDisk starten...'+TAB+TAB+#186);
writeln(#186#32+O_GHOST+TAB+TAB+': Norton Ghost starten...'+TAB+#186);
writeln(#186+TAB+TAB+TAB+TAB+TAB+TAB+#186);
writeln(#186#32+'-> Bitte Gro'+#225+'- und Kleinschreibung beachten!'+TAB+#186);
writeln(#200#205#205#205#205#205#205#205#205#205#205#205#205
#205#205#205#205#205#205#205#205#205#205#205#205#205#205#205
#205#205#205#205#205#205#205#205#205#205#205#205#205#205#205
#205#205#205#205#205#188);
end;
procedure confirmation;
begin
writeln;
write('Ihre Eingabe: ');
readln(a);
if a <> '' then begin
if a = O_EXIT then exit
else if a = O_XFDISK then writeln(' XFDisk wird gestartet...')
else if a = O_GHOST then writeln(' Norton Ghost wird gestartet...')
else if a = O_HELP then help
else if a = 'hallo' then writeln(' Hallo!')
else writeln(' Fehler: "'+a+'" ist ein ung'+#129+'ltiges Kommando');
end;
writeln;
confirmation;
end;
begin
writeln('==========================================');
writeln(' Console '+#184+' 2004 silentAMD');
writeln('==========================================');
writeln;
writeln('Geben Sie f'+#129+'r folgende Programme');
writeln('entsprechende Nummern ein.');
writeln('(falls die Hilfe eingeblendet werden soll,');
writeln('geben Sie "'+O_HELP+'" ein)');
help;
confirmation;
writeln(' Das Programm wird beendet.');
readln;
end.
PLEASE HELP!!!
[edit=Admin]Zu lange Zeilen umgebrochen. Mfg, Daniel[/edit]