Получить папку с программой:
sAppFolder := ExtractFilePath(ParamStr(0));
или
sAppFolder := ExtractFilePath(Application.ExeName);
А на счет удаление - то же самое, что и запись, только
вместо reg.WriteString('My App', Application.ExeName);
reg.DeleteValue('My App');
|