🚀 go-pugleaf

Hi Remy,

Here is the code that will cause an AV if the integer "MainApp" not exist, I
was hoping OpenKey will create the key if it does not exist.

Frank

void __fastcall GetParam(int &MainApp)
{
  MainApp = 0;
  TRegistry *Reg = new TRegistry;
  try
  {
    Reg->RootKey = HKEY_CURRENT_USER;
    if (Reg->OpenKey("Software\\Microsoft\\Internet Explorer", true))
    {
      MainApp = Reg -> ReadInteger("MainApp");
    }
  }
  __finally
  {
    Reg->CloseKey();
    delete Reg;
  }
}


WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
  int MainApp;
  GetParam(MainApp);
  try
  {
     Application->Initialize();
     Application->CreateForm(__classid(TForm1), &Form1);
     Application->Run();
  }
  catch (Exception &exception)
  {
     Application->ShowException(&exception);
  }
  return 0;
}

"Remy Lebeau (TeamB)" <gambit47@yahoo.com> wrote in message
news:3f63f0fd$1@newsgroups.borland.com...
> > I can't use TRegistry approach as i need to access
> > the registry before Application->Initialize();
>
> Of course you can use TRegistry before Application->Initialize().
TRegistry
> has no dependancies on TApplication at all.  Simply modify the project's
> WinMain() function directly if you want to do anything before initializing
> TApplication.
>
>
> Gambit
>
>
> ---
> Outgoing mail is certified Virus Free.
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.515 / Virus Database: 313 - Release Date: 9/1/03
>
>