считать данные из переменной типа String

[1o1man]

Надо каким-то образом вставлять вместо path его значение. а как это сделать я не знаю. устал гуглить((( REG.WriteString( 'spath', path )

или как можно по-другому сделать это? в общем надо открыть файл и запомнить путь, чтобы при следующем включении программы не надо было путь выбирать, если с тем же файлом хотим продолжить работать. может надо лучше ini файл использовать? если да, то что в нем писать и что/как считывать при запуске программы?

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Path:=ExtractFilePath(Application.ExeName);
path:=path + Application.ExeName;
REG := TRegistry.Create;
  try
    if not REG.OpenKey(
      'Software\Microsoft\Windows NT\CurrentVersion\Windows', False )
    then Exit;
    try
      REG.WriteString( 'spath', path );
    finally
      REG.CloseKey;
    end;
  finally
    end;
end;

[AlexanderKs]

Вот процедура:

procedure TForm1.Reestor(Record: boolean);
var
Rees:TRegIniFile;
begin
if Record=true then begin
  Rees:=TRegIniFile.Create('Path');
    Rees.OpenKey('Key',true);
    Rees.WriteString('Options','Date',Edit1.Text);
  Rees.Free;
end;
if Record=false then begin
  Rees:=TRegIniFile.Create('Path');
    Rees.OpenKey('Key',true);
    Edit1.Text:=Rees.ReadString('Options','Date','C:\');
  Rees.Free;
end;
end;

Вместо Edit1.Text поставь свои переменные.
Если Record = true, процедура производит запись пути в реестр, если false - читает записанный путь

[AlexanderKs]

"procedure TForm1.Reestor(Record: boolean);"
С Record я, конечно, погорячился...
По другому переменную назвать нужно.

[1o1man]

спасибо, сейчас попробую

[1o1man]

блин, тут затупил
if OpenDialog1.Execute then
Path:=ExtractFilePath(Application.E xeName);
path:=path + Application.ExeName;

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

[AlexanderKs]

if OpenDialog1.Execute then
Path:=OpenDialog1.FileName;

[1o1man]

procedure TForm1.Reestor(Recor: boolean);
var
Rees:TRegIniFile;
begin
if Recor=true then begin
  Rees:=TRegIniFile.Create('Path');
    //REes.RootKey:=HKEY_LOCAL_MACHINE;   когда такую штуку вставляю, то ошибка, а без нее ниче не записывается и при включенении не считывается
    Rees.OpenKey('Key',true);
    Rees.WriteString('Options','Date',Path);
  Rees.Free;
end;
if Recor=false then begin
    Rees:=TRegIniFile.Create('Path');
   // REes.RootKey:=HKEY_LOCAL_MACHINE;
    Rees.OpenKey('Key',true);
    Path:=Rees.ReadString('Options','Date','C:\');   \\а почему тут 'C:\'  ?
  Rees.Free;
end;
end;

он вообще куда должен сохраняться то?)))))
ааааааа

[AlexanderKs]

После того, как сохранил путь к файлу в переменную Path, вызови эту процедуру в следующей строчке (напиши Reestor(true));
Она запишет путь к выбранному файлу в реестр.

[1o1man]

(напиши Reestor(true));
сделал я так, а в ини файл сделал так...

procedure TForm1.FormCreate(Sender: TObject);
var Ini:Tinifile;
begin
....
Reestor(false);

при запуске программы не вылезает никуда путь этот(

[AlexanderKs]

Чтобы считать путь из реестра при запуске программы, вызови эту процедуру из события Form1.OnCreate ("при создании формы"). Напиши в это событие следующее: Reestor(false). Процедура прочитает сохраненный в реестр путь и сохранит его в Path. Если программа запущена первый раз, в Path будет сохранено "C:\".