Непонятная ошибка! Delphi ... ReloaD ...

[Xaker_Two]

В общем проблема такая же как и в теме ниже (http://programmersforum.ru/showthread.php?t=243271) только два отличия: 1: Это явление глобально! и 2: программа запускается при помощи автозапуска через ключ в реестре. И CurrentDir принимает значение параметра AutoStr.OpenKey! Глобально т.е. это не только на программе отражается но и на .bat файлах!!! Как отчистить эту переменную или может у переменных типа TRegistry есть какой-то особый параметр для этого?
Вот код процедуры записи данных в реестр! Хотя он наверное бесполезен т.к. программа завершается при выключении ПК

AutoStr:=TRegistry.Create;
AutoStr.RootKey:=HKEY_LOCAL_MACHINE;
AutoStr.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', false);
if Sender = Shutdown then if (State = 'on') and (DayToday <> '----') then
  begin
  if AutoStr.ValueExists('StrAlarm') = False then AutoStr.WriteString('StrAlarm', ExeDir+'StartClock.bat(раньше здесь был сам exe файл но результата 0)');
  end;
if Sender = AlarmIco then
  begin
  if AutoStr.ValueExists('StrAlarm') = true then AutoStr.DeleteValue('StrAlarm');
  end;
AutoStr.CloseKey;
AutoStr.Free;

До перезагрузки все робит нормальнои ничто ни счем не переплетается.
Однако после перезагрузки во время запуска программы функция GetCurrentDir выдает именно путь AutoStr.OpenKey. Так мало этого переменная %CD% в .bat файле выдает тоже самое(т.е. местоположение ключа StrAlarm без AutoStr.RootKey)!

[Stilet]

во время запуска программы функция GetCurrentDir выдает именно путь AutoStr.OpenKey

Ну правильно. Если твоя программа себя в автозапуск прописала, то GetCurrentDir и выдаст этот путь

[evg_m]

"локально" для программы избавляемся от GetCurentdir

extractfilepath(ParamStr(0)); 
extractfilepath(Application.Exename);