{{notification.text}}

MirGames

Meat
08.07.06 02:45
0
Вообщем в проге используется реестр, чтобы ставить и убирать ее в(из) автозапуск(а). Но после использования Registry, прога весит на 40 кб больше. А так я начал ее переписывать на winapi, чтобы сделать ее вес меньше, мне эти 40кб никчему. Может можно где-нибудь как-нить уменьшить? Всмысле найти где-нить сокращенный Registry.pas?
#1
Limited Edition
08.07.06 02:55
0
Meat, найти гдето врядли, всё своими ручками, выбирай всё что тебе надо и всё что ему надо для работы, выбирай до тех пор пока не откомпилируется.
#2
Meat
08.07.06 03:22
0
Мдя, в принципе так и хотелось, но лень.
Да еще где-то видел, регистри написанный без каких-то библиотек,но где не помню.

.....
Избавил сам файл pas от 12 кб, набольшее не хватает мозгов, там все завязано. Но сам ехе не стал меньше чуствую, что это из-за того, что в uses, но от них тоже избавиться не могу.
Отредактировано: 08.07.06 03:41
#3
MirGames Dev
08.07.06 08:00
0
Повыдирай из Registry.pas то, что тебе нужно. А вообще - может в KOL есть что-нибудь?
#4
Meat
08.07.06 15:49
0
Упс, сколько слышал, но так и не узнал, чтотакое KOL? :)
#6
Meat
09.07.06 06:12
0
Нет, ни нашел, хотя узнал, что можно пользоваться только Api функциями.
#7
аксакал
09.07.06 11:42
0
Прыгай от этого :)
Код
procedure SaveSettings;
var
Key : hKey;
begin
if RegCreateKey(HKEY_CURRENT_USER, 'Software\TFK\Chat', Key) = 0 then;
if RegOpenKeyEx(HKEY_CURRENT_USER, 'Software\TFK\Chat', 0, KEY_WRITE, Key) = 0 then
  begin
  if Nick <> '' then
   RegSetValueEx(Key, 'Nick', 0, REG_SZ, PChar(Nick), Length(Nick));
  RegSetValueEx(Key, 'Pass', 0, REG_SZ, PChar(Pass), Length(Pass));
  RegSetValueEx(Key, 'QuitMsg', 0, REG_SZ, PChar(QuitMsg), Length(QuitMsg));
  RegSetValueEx(Key, 'Server', 0, REG_BINARY, @Server, 1);
  RegSetValueEx(Key, 'Port', 0, REG_BINARY, @Port, 1);
  RegSetValueEx(Key, 'Flash', 0, REG_BINARY, @Flash, 1);
  RegSetValueEx(Key, 'ShowTime', 0, REG_BINARY, @ShowTime, 1);
  RegSetValueEx(Key, 'AConnect', 0, REG_BINARY, @AConnect, 1);
  RegCloseKey(Key);
  end;
end;
#8
Meat
11.07.06 02:25
0
Уф, вроде разобрался.
Да еще новенькое узнал.
Спасибо всем большое. :)
#{{post.Index}}
{{post.Author.Login}}
{{post.CreatedDate | date:'dd.MM.yy HH:mm'}}
{{post.VotesRating}}
Отредактировано: {{post.UpdatedDate | date:'dd.MM.yy HH:mm'}}