Вверх ↑
Ответов: 165
Рейтинг: 6
#1: 2017-04-16 19:44:41 ЛС | профиль | цитата
Ещё одним способом является запись в NTFS поток самого исполняемого файла. Гуглите в эту сторону, на форуме несколько лет назад тема активно обсуждалась. У способа есть очевидное ограничение на файловые системы и необходимость наличия привилегий на запись в данную директорию у запущенного приложения. Плюсом является то, что перенос исполняемого файла в другую директорию сохранит настройки вместе с ним. Та же история при переносе на другой компьютер через носитель отформатированный в NTFS.

--- Добавлено в 2017-04-16 19:52:02

Вот пример:


Add(MainForm,2953706,336,168)
{
Width=300
Height=271
Color=16777215
Caption=""
Position=1
}
Add(Button,1555037,483,175)
{
Left=5
Top=5
Caption="Load"
link(onClick,4096452:doLoad,[(537,181)(537,195)])
}
Add(Button,9858979,483,210)
{
Left=5
Top=25
Caption="Save"
link(onClick,4096452:doSave,[(537,216)(537,202)])
}
Add(Memo,4096452,560,161)
{
Left=65
Top=5
Width=210
Height=225
link(FileName,4246720:Var1,[])
}
Add(MultiElement,4246720,567,105)
{
}
BEGIN_SDK
Add(EditMulti,9474877,21,21)
{
VarCount=1
Width=209
Height=109
HOffset=70
link(Var1,15277211:GetData,[])
}
Add(Application,301099,140,28)
{
Wait=1
}
Add(EventFromData,15277211,91,77)
{
link(onEvent,3103310:doString,[])
}
Add(FormatStr,3103310,140,77)
{
DataCount=1
Mask="%1:list.txt"
link(onFString,15277211:doData,[(184,83)(184,71)(79,71)(79,83)])
link(Str1,301099:AppFileName,[])
}
END_SDK

карма: 4

0
Редактировалось 1 раз(а), последний 2017-04-16 19:52:02