Модератор: Модераторы
Код: Выделить всё
procedure TForm1.Button1Click(Sender: TObject);
var
regini: TRegIniFile;
begin
RegIni := TRegIniFile.Create('');
try
RegIni.RootKey := HKEY_CURRENT_USER;
res.Text:= RegIni.ReadString(Path.Text, key.Text, '');
finally
RegIni.Free;
end;
end; artem78 писал(а):RegIni := TRegIniFile.Create('');
artem78 писал(а):Если запустить исполняемый файл напрямую, ошибки не будет.
Код: Выделить всё
function FromReg2(Path: string): String;
var
reg:TRegistry;
begin
Reg:= TRegistry.Create(KEY_READ);
with reg do
try
rootKey := HKEY_LOCAL_MACHINE;
openKey(Path,false);
result:=readstring('');
closeKey;
finally
free;
end;
end;
Vadim писал(а):1. А если из скобок убрать пустую строку?
Vadim писал(а):2. А если предположить, что у Вас в "Path.Text" или в "key.Text" чёрте что и в попе бантик?
Vadim писал(а):Как видите, возможностей совершить ошибку в Вашем коде хоть пруд пруди
artem78 писал(а):А в чём собственно говоря разница между TRegIniFile и TRegistry?
artem78 писал(а):Думаю, Вы сами прекрасно понимаете, что данный код написан в качестве примера.
zub писал(а):Ты бы ссылки хоть чтоли давал откуда куда тащишь. С ошибками надо разбираться и понимать причину, а не чтото гдето ктото комуто пишут.
zub писал(а):Будте любезны дать минимальный пример с воспроизводимой ошибкой, а не копипасту откуда непойми.