Contact: aviboots(AT)netvision.net.il
43,919 questions
57,323 answers
573 users
program CurrentExecutable; uses SysUtils; var s: String; begin s := ExtractFileName(ParamStr(0)); Writeln(s); end. (* run: main *)