Работа с реестром

[helper999999]

подскажите где ошибка, что не указал?

procedure CreateKeyRun;
var
  key:HKEY;
begin
RegOpenKey(HKEY_CURRENT_USER, PChar('SOFTWARE\MyProgmarINI'), Key);
  RegSetValueEx(key,'FileCode',0,REG_SZ,PChar('1'),lstrlen(PChar('1'))+1);
  RegCloseKey(key);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
CreateKeyRun;
end;

Ключ не создается хотя при копиляции все нормально, и ошибок при работе не выдает.

[FaTaL]

Используй TRegistry и не мучайся.

[HTTqp]

пользуйся TRegistry , правда и вес увеличится на 1 метр

[helper999999]

Хотелось бы использовать api функцию

[Iron Monk]

Сообщение от helper999999

Хотелось бы использовать api функцию

А раздел 'SOFTWARE\MyProgmarINI' уже существует в реестре?

[Iron Monk]

procedure CreateKeyRun;
var
  key      : HKEY;
  subKey : string;
begin
  subKey:= '1';
  RegOpenKey(HKEY_CURRENT_USER, PChar('SOFTWARE\MyProgmarINI'), Key);
  RegSetValueEx(key,'FileCode',0,REG_SZ,PChar(subKey),lstrlen(PChar(subKey))+length(subKey));
  RegCloseKey(key);
end;

[helper999999]

Iron Monk, спасибо сработатло, а почему только через переменную добавляется, а на прямую нет?

[Iron Monk]

Сообщение от helper999999

Iron Monk, спасибо сработатло, а почему только через переменную добавляется, а на прямую нет?

Как-то так...

RegSetValue(Key: HKey; SubKey: PChar; ValType: Longint; Value: PChar; cb: Longint): Longint;


Ключ\подключ Key\SubKey.
ValType - тип задаваемой переменной,
Value - буфер для переменной
cb - размер буфера. В Windows 3.1 допустимо только Value=REG_SZ.
Возврат - код ошибки или ERROR_SUCCESS, если нет ошибок.