Сохранение пути в файл

[motaro]

есть код, с помощью которого получаю адрес папки, далее пытаюсь сохранить путь в файл, но при записи в файл выводит ошибку:
Project Project3.exe raised exception class EInOutError with message 'I/O error 104'

uses
ShellAPI, ShlObj;
...

var
  Form2: TForm2;
  f:text;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var
  TitleName : string;
  lpItemID : PItemIDList;
  BrowseInfo : TBrowseInfo;
  DisplayName : array[0..MAX_PATH] of char;
  TempPath : array[0..MAX_PATH] of char;
begin
  FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
  BrowseInfo.hwndOwner := Form2.Handle;
  BrowseInfo.pszDisplayName := @DisplayName;
  TitleName := 'Please specify a directory';
  BrowseInfo.lpszTitle := PChar(TitleName);
  BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
  lpItemID := SHBrowseForFolder(BrowseInfo);
  if lpItemId <> nil then
  begin
    SHGetPathFromIDList(lpItemID, TempPath);
    ShowMessage(TempPath);
    GlobalFreePtr(lpItemID);
  end;
 AssignFile (f,'d:\file.txt');
 rewrite (f);
 readln (f,temppath);
 closefile(f);
end;

end.

[Daramant]

Ты открыл файл на запись и пытаешься читать из него данные.

 AssignFile (f,'d:\file.txt');
 rewrite (f);
 readln (f,temppath);  // вот. замени на writeln(f,temppath);
 closefile(f);

[russian-stalker]

Может лучше использовать INI-файлы?

[motaro]

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

Ты открыл файл на запись и пытаешься читать из него данные.

 AssignFile (f,'d:\file.txt');
 rewrite (f);
 readln (f,temppath);  // вот. замени на writeln(f,temppath);
 closefile(f);

спс .

[motaro]

Сообщение от russian-stalker

Может лучше использовать INI-файлы?

txt прокатывает, а в ini не шарю

[Kukkk]

motaro, на самом деле в ини шарить=1 раз глянуть 2-3 исходника.

[russian-stalker]

Чтобы использовать ини надо:
1. Добавить в Uses inifiles
2. А вот собственно смысл работы

//По уничтожению формы записываем размеры и позицию, при создании формы воссоздаём
procedure TForm1.FormDestroy(Sender: TObject);
var
  Ini: Tinifile; //создаём объект нужного класса
begin
  //создаём файл в папке с программой
  Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'test.ini');
  //Записываем нужные данные в ини файл
  //Функция выглядит примерно так WriteInteger(имя секции,имя параметра,сохраняемый параметр)
 //Может так же быть WriteString, WriteBool
  Ini.WriteInteger('Size','Width',form1.width);
  Ini.WriteInteger('Size','Height',form1.height);
  Ini.WriteInteger('Position','X',form1.left);
  Ini.WriteInteger('Position','Y',form1.top);
  Ini.Free;
end;


procedure TForm1.FormCreate(Sender: TObject);
var
  Ini: Tinifile; //создаём объект нужного класса
begin
  //создаём файл в папке с программой
  Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'test.ini');
  //Присваиваем значения из ини файла, форме
  //Функция выглядит примерно так ReadInteger(имя секции,имя параметра,параметр по дефолту(т.е. если ини файл не содержит описание нужного параметра)
 //Может так же быть ReadString, ReadBool
  Form1.Width:=Ini.ReadInteger('Size','Width',100);
  Form1.Height:=Ini.ReadInteger('Size','Height',100);
  Form1.Left:=Ini.ReadInteger('Position','X',10);
  Form1.Top:=Ini.ReadInteger('Position','Y',10);
  Ini.Free;

end;

3. С файлом смысл работы такой же

ini.writestring('File','Path','d:\file.txt');
string:=ini.readstring('File','Path','d:\file.txt');

[Gorychev]

Сохранять инфу в ини(или др файл) в одной папке с приложением – не всегда работает.
Если прога запускается под админом, то все в шоколаде, а если запускает обычный юзер, то зачастую, у него нет прав на запись в папке, в котором находится ваше приложение. В результате выпрыгивает окошечко "Unable to write to Путь_к_файлу". А это всегда непринято.
Лучше всего инфу сохранять в реестре в ветке HKEY_CURRENT_USER.
Тем более TRegistry сильно облегчает жизнь.
Не путайте с HKEY_LOCAL_MASHINE - сюда юзеры тоже записывать не могут, только читать.

[russian-stalker]

Не надо так делать. Это загрязняет реестр и скорость работы ПК со временем падает. Вроде ещё можно в XML писать без привелегий

[Gorychev]

Это загрязняет реестр и скорость работы ПК со временем падает.

Реестр - огромная база данных для храниния\записи как настроек ОС так и настроек др. программ самых разных цветов и мастей. Аргументируйте, за счет чего может упасть скорость работы ПК?
А как вы объясните, то что это общепринятая технология хранения/записи информации?
Скачайте себе RegMon, если, у вас нет такой проги и посмотрите насколько "плотно" используется реестр.
Мое мнение - добавление вами десятка-другого строк в реестр, повлияет на производительность ПК как пачка сигарет в кармане на скорость ходьбы. Вообще не факт что повлияет.
Стою на своем мнении.