Текущий архив: 2007.04.01;
Скачать: CL | DM;

Вниз

Работа с реестром   Найти похожие ветки 

← →
muhh   (2007-03-05 18:48) [0]

Подскажите пожалуйста как работать с реестром. Какие операции надо сделать чтобы внести туда что нибудь.
У меня конкретный пример...я хочу сделать бесплатную регистрацию своей проги. То есть как всегда вылетает окно с серийником..
Человек вбивает код и прога регистрируется.
Помогите плиз....

---

← →
muhh   (2007-03-05 18:49) [1]

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

---

← →
NiGGa[lHbs]   (2007-03-05 18:50) [2]

TRegistry ?

---

← →
NiGGa[lHbs]   (2007-03-05 18:50) [3]

И причем серийник к реестру?

---

← →
muhh   (2007-03-05 20:45) [4]

ну я никогда не делал такой фишки..ребята сказали что регистрация делается через реестр
был бы признателен, если поможете :)
то есть надо просто сделать регистрацию..если есть коды киньте плиз...

---

← →
Virgo_Style ©   (2007-03-05 20:58) [5]

muhh   (05.03.07 20:45) [4]
если есть коды киньте плиз

потрут же

---

← →
muhh   (2007-03-05 21:51) [6]

ничего не понял..почему потрут???

кинmтe тогда на мыло плизз..
muhan@inbox.ru

---

← →
Аноним   (2007-03-05 22:07) [7]

> Человек вбивает код и прога регистрируется.


где регистрируется? В реестре чтоли?

---

← →
IMHO ©   (2007-03-05 22:48) [8]

Вот из хэлпа для тебя скопипэйстил:

The following example shows how to tell Windows to relaunch your application when Windows starts up if it was running when the system shut down. When Windows starts up, it launches each application listed in the RunOnce key and then deletes the entry for that application.  Therefore, you do not need to remove the entry written here.

procedure TForm1.WMEndSession(var Message: TWMEndSession);
var
 Reg: TRegistry;
begin
 Reg := TRegistry.Create;
 try
   Reg.RootKey := HKEY_CURRENT_USER;
   if Reg.OpenKey("\Software\Microsoft\Windows\CurrentVersion\RunOnce", True)
   then Reg.WriteString("MyApp",""" + ParamStr(0) + """);
 finally
   Reg.CloseKey;
   Reg.Free;
   inherited;
 end;
end;

In order for this method to be called, it must be declared in the interface section of your unit as follows:

private

 procedure WMEndSession(var Msg:TWMEndSession); message WM_ENDSESSION;


---

Страницы: 1 вся ветка

Текущий архив: 2007.04.01;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.065 c