![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
вывод из реестра адреса е-mail
kate158 © (2008-08-05 10:21:00)Кто знает как вывести из реестра адрес почты?
Medbe}I{onok XML (2008-08-05 10:30:00) [21]ёшкин кот ..... и стринглист и ассайн и рукотворный xml
kate158 (2008-08-05 10:29:00) [22]есть TStringList. добавление идет методом add.как прописать в add почту из реестра
procedure TForm1.Button3Click(Sender: TObject);
var
st:TStringList;
begin
st:=TStringList.Create;
f:='C:\ + '.txt';
assignfile(s,f);
st.Add('<?xml version="1.0" encoding="windows-1251" standalone="no"?>');
st.SaveToFile(f);
Anatoly Podgoretsky (2008-08-05 10:24:00) [23]> kate158 (05.08.2008 10:23:02) [2]
WriteLn
А имя папки и файла задается в AssignFile
Medbe}I{onok XML (2008-08-05 10:24:00) [24]with TFileStream.Create('Определенная папка\Файл.txt') do
try
WriteBuff(.......);
finally
Free
end;
Anatoly Podgoretsky (2008-08-05 10:23:00) [25]> kate158 (05.08.2008 10:21:00) [0]
Адрес почты это строка, значит ReadString
kate158 (2008-08-05 10:23:00) [26]вывести в текстовый файл и сохранить в опр папке
Medbe}I{onok XML (2008-08-05 10:22:00) [27]вывести в оффшор или куда?