Узнать свое имя на паскале =)

[gold-goblin]

Короче всеже ришил написать 2 версию Арабески и столкнулся с проблемой:
Как узнать какое имя сейчас у исполняемого файла самой программы?

[0x0c0de]

функция GetModuleFileName

[z01b]

И не забываем uses windows :)

[krypt3r]

begin
writeln (ParamStr (0));
end.