Возникла проблема с автозапуском программы.
1-й вопрос.
У меня имеется исходник по автозапуску на Delphi,
но чего-то я не могу переделать его в С++В. Постоянно
возникают ошибки, видимо, синтаксического рода.
Привожу исходник:

Код

procedure SetAutorun(aProgTitle,aCmdLine: string;                       aRunOnce: boolean );  var    hKey: string;    hReg: TRegIniFile;  begin    if aRunOnce then hKey := 'Once'    else      hKey := '';    hReg := TRegIniFile.Create( '' );    hReg.RootKey := HKEY_LOCAL_MACHINE;    hReg.WriteString('Software\Microsoft\Windows\CurrentVersion\Run'                    + hKey + #0,                    aProgTitle,                    aCmdLine );    hReg.destroy;  end;

2-й. Вопрос.
Допустим, что эту процедуру удалось переписать в С++,
но куда вставлять вызов этой процедуры, а?
И еще. Вопрос по Windows, но по автозапуску. Поместил ехе-файл в
автозагрузку (у меня ХР). Автозагрузка происходит, но все то, что должно
делаться при создании (OnCreate) формы не делается, хотя когда вызываешь
из Командера, все работает. Почему?
С уважением fisic.

Во-первых переводить данные исходник на Builder лень, посмотри в примерах Builder'а.
Во-вторых данный код можно всиавлять куда угодно, например в конструктор формы.

А на счет того, что при автозапуске ничего не происходит, так это от того, что "криво" автозапуск назначен.

Да переводить не охота
Вот тебе код по автозапуску на С++

Код

TRegistry *Reg = new TRegistry;    try   {     Reg->RootKey = HKEY_CURRENT_USER;     if (Reg->OpenKey("\\Software\\Microsoft\\Windows\\CurrentVersion\\Run", true))     {       Reg->WriteString("MyApp","\"" + ParamStr(0) + "\"");       Reg->CloseKey();     }   }   __finally   {   }

И ещо не забудь : #include "Registry.hpp"

Это сообщение отредактировал(а) Slayers - 23.10.2005, 07:19

Slayers, Artemon, спасибо.
Сейчас попробую.
На счет "криво", а как не криво? Я просто скопировал ехе файл,
может еще что-то надо сделать?
С уважением, fisic.

А разве форума по Дельфе здесь нет?
Зачем Сишников напрягать?

Это сообщение отредактировал(а) forker - 24.10.2005, 12:02

Гость_fisic, на счет "криво" - я имел в виду, что ты не так путь к EXE прописал

Artemon, попробую написать путь полностью.
Кстати, может быть надо полный путь вставить и
в исходник автозапуска (ответ slayers'а), потому как
при программном автозапуске просходит тоже самое:
форма создается, но ничего не происходит.
А может я чего-то не то делаю в OnCreate? Может нарушаю
какую-то последовательность действий? У меня там работа
с ини - файлом, автоматическое открытие и считывание файла.
С уважением, fisic.

Показывай как делаеш в OnCreate и тогда может подскажу...

Slayers, показываю.
Create я перевел в Show, но все равно он не читает ini файл.
Суть кода. Считываем из ini файла имя последнего сохранения таблицы,
открываем ее. прочитываем одну из колонок, проверяем выполнение критерия,
если да то идем дальше, если нет, то выходим.

Код

void __fastcall TForm1::FormShow(TObject *Sender) { Edit1->Text = "CCC"//Это проверка, что он вообще сюда заходит, он заходит;  TStringList *MyList = new TStringList;    TIniFile *Ini = new TIniFile("c:\InstalRem.ini");    AnsiString FName = Ini->ReadString("NameFile","FullName","");    SFile = FName;     int Num = Ini->ReadInteger("NumberDay", "Number", 0);    delete Ini;    Ini = NULL;     if (FName=="")      {        return;      }        if (!FileExists(FName))        {ShowMessage("Токого файла нет");        return;        }        TFileStream *fn = new TFileStream(FName,fmOpenRead);   if (fn!=Null)     {       int h, ccnt ;       fn->Read(&h,sizeof(int));       Grid1->ColCount=h;       fn->Read(&h,sizeof(int));       Grid1->RowCount=h;       char text[256];       for (int i=0, ccnt=Grid1->ColCount; i<ccnt; i++)       for (int j=0, rcnt=Grid1->RowCount; j<rcnt; j++)         {           if(fn->Read(&h,sizeof(int))!=sizeof(int))            {              i=ccnt;              break;            }           if(h==0) continue;           if(fn->Read(text,h)!=h)            {               i=ccnt;               break;            }           text[h]=0;           Grid1->Cells[i][j]=text;         }     } StatusBar1->Panels->Items[1]->Text="Именинников"+AnsiString(" ")+IntToStr(Grid1->RowCount-1);    for (int i=1; i<=Grid1->RowCount-1;i++)      {      String date = Grid1->Cells[3][i];      String year = FormatDateTime(".yyyy", Date());      date.Delete(date.LastDelimiter("."),5);      date.Insert(year,7);      int delta = StrToDate(date)-Date();        int  Nrow, Nrow1;        if (delta>0)        if (delta<=Num)        {        Grid1->Visible = false;        GroupBox2->Visible = false;        Label4->Visible = false;        Panel1->Visible = true;        Panel1->Top = 32;       if (Grid2->Cells[0][Grid2->RowCount-1] == "" )               {Nrow1=1;                Grid2->Cells[0][Nrow1] = Grid1->Cells[0][i];                Grid2->Cells[1][Nrow1] = Grid1->Cells[1][i];                Grid2->Cells[2][Nrow1] = Grid1->Cells[2][i];                Grid2->Cells[3][Nrow1] = Grid1->Cells[3][i];               }                else              {   Grid2->RowCount = Grid2->RowCount+1;                  Nrow = Grid2->RowCount-1;                  Grid2->Cells[0][Nrow] = Grid1->Cells[0][i];                  Grid2->Cells[1][Nrow] = Grid1->Cells[1][i];                  Grid2->Cells[2][Nrow] = Grid1->Cells[2][i];                  Grid2->Cells[3][Nrow] = Grid1->Cells[3][i];                }                } StatusBar1->Panels->Items[1]->Text="Именинников"+AnsiString(" ")+IntToStr(Grid2->RowCount-1);      } delete fn; delete Ini; }

С уважением, fisic.

В форуме случайно нашел, что OnCreate не шибко хорош для CBuilder, лучше
использовать конструктор главной формы, так я подумал, может стоит все, что
у меня было в OnCreate туда перенести.

По поводу цитаты: я б ее привел, да что -то не получается.
нашел через поиск - Word - паролирование формы автор Вячеслав.
C уважением, fisic.