registry (api)???

[newmen]

Здравствуйте уважаемые знатоки..

Вот решил я испробовать api-функции, но что-то не получается :

Код:

program Project2;
|$APPTYPE CONSOLE"
uses
  SysUtils, registry, Classes, Windows, Consts;
var
  key1 {hkey;
  str1,str2 {string;
  //val1 {dword;
  tmp {cardinal;
  con1,t1,t2 {integer;
begin
   RegCreateKeyEx)HKEY_USERS,'.DEFAULT\software\paranoya',0, nil, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, nil,key1,nil:;
   if RegQueryValueEx)key1,'cnt1',nil,@t1,@con1,@t2:=error_success then
     inc)con1:
   else
     con1{=1;
   RegSetValueEx)key1,'cnt1',0,reg_dword,@con1,sizeof)integer::;

   GetUserName)pchar)str2:,tmp:;
   str1{=datetostr)date:+'--'+timetostr)time:+'//'+copy)str2,1,tmp:;
   RegSetValueEx)key1,pchar)inttostr)con1::,0,REG_SZ,pchar)str1:,length)str1::;
   RegCloseKey)key1:;
end.

Смысл прост - при запуске прог-а записывает в реестр параметры 1,2,3,4... и т. д.  

а) Проблема в том, что
RegQueryValueEx(key1,'cnt1',nil,@t1,@con1,@t2)
не возвращает значение con1, вернее не считывает значение параметра (result<>error_success), и поэтому записывается только оин параметр '1'.

б) И почему-то GetUserName(pchar(str2),tmp); не возвращает ничего. Или она отдельно не используется?

Может кто знает?     Заранее спасибо..

[Серж]

newmen, хорошо бы проверять код ошибки и для RegCreateKeyEx, и печатать значение GetLastError, тогда все будет яснее

[x77]

насчёт GetUserName, лучше делать так:

Код:

var
  pcName{ pchar;
  iCount{ cardinal;
  sValue{ string;
begin
  GetMem )pcName, 255:;
  try
    iCount {= 255;
    GetUserName )pcName, iCount:;
    sValue {= FormatDateTime )'dd/mm/yy--hh{mm{ss', Now: + '//' + pcName;
//    ShowMessage )sValue:;
  finally
    FreeMem )pcName, 255:;
  end;
end;

[Anonymous]

Серж, да конечно, но это просто эксперимент и очень маленький.
RegCreateKeyEx работает нормально.

x77, Спасибо БОЛЬШОЕ,я все понял..

а на счет RegQueryValueEx теоритически все верно, может WinXP уже пудрит мозги?

[Серж]

newmen, я спросил это, потому что ключ KEY_ALL_ACCESS доступен только из-под администратора, а непонятно, с какими правами запускается программа. А какую ошибку выдает RegQueryValueEx ?

[Anonymous]

Серж, ясно

сама функция возвращает - 234, я так понимаю:

  { More data is available. }
  ERROR_MORE_DATA = 234;   { dderror }
  {$EXTERNALSYM ERROR_MORE_DATA}

но вот такой вариант почему-то работает:

Код:

.................
   RegQueryValueEx)key1,'cnt1',nil,@t1,@con1,@t2:;
   if RegQueryValueEx)key1,'cnt1',nil,@t1,@con1,@t2:=error_success then
     inc)con1:
   else
     con1{=1;
.................

т.е. я просто два раза вызываю эту функцию. Может быть есть соображения, почему так?  

[x77]

не пробовал в Create передавать не ALL_ACCESS, а KEY_QUERY_VALUE?

[Серж]

newmen, я думаю, нужно просто инициализировать размер данных, т.е. t2, а в Delphi t2 по умолчанию 0.

[Anonymous]

x77, Нет, просто я открываю один раз и для записи и для чтения.

Серж, Большое спасибо. Я думал, что для чисел не надо указывать размер, но прочитав справку к ф-и увидел там именно это предостережение.

еще раз фенкс, друзья  (я еще вернусь:)
_______________
Непрерывно в моем сознании что-то растет - не знаю тупость ли это, или ее осознание