[FreddyZSX]

Здравствуйте!
Понимаю - тема наверно измусоленая, НО!

Занес в реестр по пути
HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Run в строковый параметр путь к exe'шному файлу своей программы , допустим D:\qqq\qqq.exe.
Программа работает совместно со своим файлом конфигурации, допустим qqq.ini. Этот файл лежит в папке с программой, допустим на D:\qqq\.
Проверку на наличие файла конфигурации делаю так

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

procedure TMainForm.FormShow(Sender: TObject); var     strTemp:  string; begin     strTemp:='D:\qqq\qqq.ini';    if FileExists(strTemp) then    begin     //Получаем значения параметров из файла конфигурации     GLB_AppConfIni:=TIniFile.Create(strTemp);    end       else    begin       MessageBox(MainForm.Handle,         PChar('Отсутствует файл конфигурации! Расположение: ' + strTemp),         PChar('ОШИБКА'), MB_OK or MB_ICONERROR);       MainForm.Close;       Application.Terminate;       exit;    end; end;

При старте windows моя программа запускается, но выводится сообщение
"Отсутствует файл конфигурации! Расположение: C:\Windows\system32\qqq.ini" (как будто я указывал этот путь для файла кофигурации!!!!)
Но почему? я ведь указал явно, что файл находится D:\qqq\qqq.ini .....

[angvelem]

Как вариант:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

procedure CheckAutoRun(Value : Boolean); var   Reg : TRegistry;   Key : String; begin   Reg := TRegistry.Create;   try     Reg.RootKey := HKEY_CURRENT_USER;     Key := 'Software\Microsoft\Windows\CurrentVersion\Run';     if Reg.OpenKey(Key, False) then     begin       if Value then         Reg.WriteString('My program', '"' + ParamStr(0) + '"')       else         Reg.DeleteValue('My program');       Reg.CloseKey;     end;   finally     Reg.Free;   end; end;   procedure TMainForm.FormShow(Sender: TObject); var   St : String; begin   St := ChangeFileExt(Application.ExeName, '.ini');   if FileExists(St) then     // Получаем значения параметров из файла конфигурации     GLB_AppConfIni := TIniFile.Create(St)    else    begin       MessageBox(Handle,         PChar('Отсутствует файл конфигурации! Расположение: ' + St),         PChar('ОШИБКА'), MB_OK or MB_ICONERROR);       Application.Terminate;       exit;    end; end;