Урок 29 Splash-screen. Вывод информации о приложении на заставке No title

February 19, 2007
в колонках играет Dire Straits - Money for Nothing


 

Скорее всего вы встречали в приложения заставки с информацией о пользователе и его регистрационных данных. Например Adobe Photoshop.

 

 

Итак откройте предыдущий проект(или создайте его заново). Модифицируем нашу заставку так, чтобы на ней отображались содержащиеся в реестре имя пользователя и серийный номер. С этой целью добавим на созданную ранее форму два компонента Label.

Создадим обработчик события, связанный с созданием формы, при этом в секции uses модуля, связанного с формой, следует сослаться на модуль registry:

void __fastcall TForm1::FormCreate(TObject *Sender)

{TRegistry *Reg;

try

 {

  Reg=new TRegistry;

  Reg->RootKey=HKEY_LOCAL_MACHINE;

  AnsiString key="SOFTWARE\\Company\\MyApp\\1.0"; \\ путь до вашего приложения в реестре

  Reg->OpenKey(key,false);

  AnsiString usr=Reg->ReadString("Name");

  AnsiString ser=Reg->ReadString("Serial");

  Label1->Caption="Пользователь: "+usr;

  Label2->Caption="Серийный номер: "+ser;

  Reg->CloseKey();

  Reg->Free();

 }

catch (...)      

 {

  Label1->Caption="Незарегестрирован"; \\Если же в реестре нет такого раздела, вместо имени пользователя и серийного номера булет выводиться сообщение о том, что пользователь не зарегистрирован.

  Label2->Caption="Пожалуйста зарегестрируйтесь";

 }

}

 

Естественно, в начале текста модуля следует вставить строку:

#include <registry.hpp>

 

Всё это будет работать при условии что вы сделаете инсталлятор, который нужные ветки реестра создаст.


Author of article - [ArtuR] 2007
www.builderhelper.3dn.ru
builder.helper@rambler.ru