Сохоанить, Сохранить как, Открыть несколько элементов в одном файле

[Polotenchik]

Всем привет! Ситуация такая: есть некоторые данные в gridstring, в обычных edit-ах и label-ах.

Мне надо по нажатию на копку сохранить и сохранить как все это дело сохранить в один файл определенного формата (притом иконка файла желательно должна иметь иконку самой программы) ну и соответственно потом надо открывать этот файл и разбрасывать всю информацию по лэйблам, едитам и гриду.

Подскажите, как действовать? Сперва была идея работать с ini файлом, но его ведь нельзя задать определенным своим форматом и иконку.

Какие есть еще методы для этого? Направьте на путь истинный!

[Greblin]

http://programmersforum.ru/showthread.php?t=15866
http://programmersforum.ru/showthread.php?t=41792

[Mixasik]

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

Всем привет! Ситуация такая: есть некоторые данные в gridstring, в обычных edit-ах и label-ах.

Мне надо по нажатию на копку сохранить и сохранить как все это дело сохранить в один файл определенного формата (притом иконка файла желательно должна иметь иконку самой программы) ну и соответственно потом надо открывать этот файл и разбрасывать всю информацию по лэйблам, едитам и гриду.

Подскажите, как действовать? Сперва была идея работать с ini файлом, но его ведь нельзя задать определенным своим форматом и иконку.

Какие есть еще методы для этого? Направьте на путь истинный!

Вполне можно работать с Ini файлом, просто задать расширение отличное от *.ini и воспользоваться ссылками что вам любезно предоставили выше.

[Polotenchik]

Да, но хотелось бы, что бы файл нельзя было открыть блокнотом и прочитать, а в случаи ini (даже если поставить свое разрешение) можно.

В примере:

implementation
uses Registry;

Код:


{$R *.dfm}

procedure RegisterFileType(FileType, FileTypeName, Description, ExecCommand: string); 
begin 
if (FileType='') or (FileTypeName='') or (ExecCommand='') then exit;  
if FileType[1]<>'.' then FileType:='.'+FileType;  
if Description='' then Description:=FileTypeName;  
with Treginifile.create do  
try rootkey := hkey_classes_root;  
writestring(FileType,'',FileTypeName);  
writestring(FileTypeName,'',Description);  
writestring(FileTypeName+'\shell\open\command','',ExecCommand+' "%1"'); 
finally free;  end; end;

//Вот само использавание
procedure TForm1.ButtonClick(Sender: TObject);
begin RegisterFileType('jpg','JPEG Image', 'Cвои текст','Exename.exe'); end;

Тут:

RegisterFileType('jpg','JPEG Image', 'Cвои текст','Exename.exe');

JPEG Image - это что и зачем? Можно любое поставить? Просто как коммментарий идет?

'Cвои текст - не понятно где прописывается? В реестре не нашел.

Exename.exe - путь до файла.

Путь до файла и вообще данное действие можно выполнить один раз и все я ведь правильно понял? После этого можно и перемещать и переименовывать файл и прогу и всеравно все будет работать?

Т.е данное действие лучше делать в инстоляторе?

[Stilet]

что бы файл нельзя было открыть блокнотом и прочитать

Здесь уже были предоставлены примеры шифрования. В часности я давал пример функции XORString. Пройдись поиском, и шифруй свой ИНИ.

[Polotenchik]

Ребят, такой вопрос:
в реестр запись
RegisterFileType('мой файл','мой файл', 'мой файл','Exename.exe');
я в принципе добавлю при инсталяции программы.

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

Т.е я сделал кнопки сохранить, сохранить как и открыть. Все хранится в ini файле только под другим разрешением. Когда я жму на кнопку открыть файл все данные из файла заносятся в прогу и она делает свое дело. А если просто нажать по файлу то открывается моя программа но действия та никаких. Ну вы поняли о чем я...

ВЗЫВАЮ О ПОМОЩИ!

[Пепел Феникса]

при открытии проги проверяй передан ли ей параметр(ParamCount)
если передан то читай его(ParamStr(1))
и затем открывай файл

[Polotenchik]

Пепел Феникса, не совсем понял! А где он должен быть прописан? Можно небольшой примерчик пожалуйста. Я просто не профи в этом деле...

Заранее благодарен.

[mutabor]

В OnCreate главной формы, проверяй
if ParamCount > 1 then тут читай имя файла из ParamStr(1)
Это параметры с к-рыми операционная система запускает твое приложение. Один параметр есть всегда - ParamStr(0) это путь к программе. Остальные опционально.

[Polotenchik]

Спасибо! Разобрался! Только надо в FormShow и if ParamCount > 0

Не думал, что так все просто!