Проблемы с автозапуском (реестр)

[[Smarik]]

Прописываю свою программу в HKEY_LOCAL_MACHINE Software\Microsoft\Windows\CurrentV ersion\Run
Программа при старте запускается, но не работает, у меня консольное приложение, которое выполняет ряд действий и создает хтмл файл с отчетом, так вот отчет не появляется! Если руками запустить программу, то все норм.

[Shouldercannon]

Может быть надо пути к используемым файлам указывать с помощью

ExtractFilePath(Application.ExeName)+

, если к ним конечно есть обращение.

[Arigato]

отчет не появляется

Ключевой вопрос в том, где должен появиться отчёт?

[[Smarik]]

Сообщение от Arigato

Ключевой вопрос в том, где должен появиться отчёт?

программа состоит из экзешника и .ini файла в ini файле указывается путь куда ложить отчеты, по дефолту это диск C:/

приложил саму программу, она дожна лежать в C:\Program Files\WinLogs\
так как в реестр пропишет путь C:\Program Files\WinLogs\WinLogs.exe

На диске С надо создать папку Reports либо изменить путь в ини файле

[Arigato]

Приведите кусок кода, где идёт сохранение отчёта в файл.

[Gorychev]

Если руками запустить программу, то все норм.

Если запускать прогу не напрямую(экзешник, ярлык с указанием рабочей папки), то папка в которой находится экзешник не будет текущей, поэтому, в FormActivate пропишите:

chdir(ExtractFilePath(Application.ExeName));

Обычно, если в проге есть файловый ввод\вывод, всегда при активации приложения делаю текущую директорию, ту в которой находится экзешник.

[[Smarik]]

у меня консольное приложение...боюсь этот код не покатит...может библиотеки какие подключить?

[Arigato]

.боюсь этот код не покатит

Вы пока что не привили ни какого кода. Говорить не о чем.

[Пепел Феникса]

Сообщение от [Smarik]

у меня консольное приложение...боюсь этот код не покатит...может библиотеки какие подключить?

ExtractFilePath(Paramstr(0))

а вот попробуйте

[beegl]

Пример с ini логом

procedure TForm1.CheckBox1Click(Sender: TObject);
var
h: TRegistry;
begin
    h := TRegistry.Create;
    with h do
    begin
    h.RootKey := HKEY_LOCAL_MACHINE;
    h.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', true);
    if sCheckBox1.Checked = true then
    begin
    h.WriteString('Project1', 'C:\Program Files\Project1\Project1.exe');
    end
    else
    begin
    if CheckBox1.Checked = false then
    h.DeleteKey('Project1');
    h.DeleteValue('Project1');
    h.CloseKey;
    h.Free;
  end;
  end;
  end;

при создании формы пишем:

procedure TForm1s.FormCreate(Sender: TObject);
var F: TIniFile;
begin
  F := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'param.ini');
CheckBox1.Checked := F.ReadBool('AutoRun Project1', 'Enabled:', false);
F.Destroy;
end;

при закрытии формы пишем:

procedure TForm1.FormDestroy(Sender: TObject);
var
  F: TIniFile;
begin
F := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'param.ini');
F.WriteBool('AutoRun Project1', 'Enabled:', CheckBox1.Checked);
F.Free;
end;

Не забываем подключить модули: Registry и IniFiles.