s:=copy(paramstr(0),1, pos('\',paramstr(0)));
edit1.text:=s;
или
s:=copy(application.exename,1, pos('\',application.exename));
edit1.text:=s;
Запуск с диска
Как осуществить такой прикол.Чтобы когда прога запускалась,определяла с какого диска она запущена и писала это в edit1.text???