Уважаемые мастера такой вопрос: как в программу еще до компиляции поместить содержимое какого-нибудь файла, чтоб после компиляции программы я смог это содержимое записать снова в файл. Файл может быть любого типа. Запись в файл должна происходить без искажения содержимого. Наприер если бы я смог вставить содержимое какого-нибудь Exe файла в программу, а потом скомпилировать прогу, и сохранить полученное содержимое снова в ЕхЕ, то экзэшник запустился. Мне надо типа что-то, например, свойства Image - Picture, когда картинку в Image вставляешь из файла, то картинка в файле dfm представляется ввиде символов. Помогите пожалуйста, как все таки мне можно сделать своеобразный котейнер для файлов.

Grol
Используй ресурсы

Спасибо все получилось!

А можно для новичка?
ЧТо значит "Исспользуй ресурсы"?

Цитата(VoAnt @ 31.10.2005, 01:54)

ЧТо значит "Исспользуй ресурсы"?

Скорее всего автор сам по себе догодался как это сделать, а ресурсы тут не причём...

Цитата(VoAnt @ 31.10.2005, 11:49)

как запустить exe из exe.

Используй функцию ShellExecute, находится в стадартном модуле ShellApi.
Добавлено @ 11:05

Код

uses ShellAPI,... ... ShellExecute(h, 'open', <Путь к exe-файлу>, nil, nil, SW_SHOWNORMAL); ...

Это сообщение отредактировал(а) Zero - 31.10.2005, 11:01

Вопрос состоит в следующем:

Есть програмка, в ней каким-то образомвложен exe файл ну например:

var f : FILE;

begin

f := {287619BA334AA7B8A5C}

и т.д.

end;

Вопрос №1. Какой указывать тип и как вложить код другово ехе в программу?
Вопрос №2. Как этот файл f запустить так, чтобы не создавать f.ехе на диске???

Это сообщение отредактировал(а) VoAnt - 31.10.2005, 11:06

Цитата(VoAnt @ 31.10.2005, 12:05)

Какой указывать тип и как вложить код другово ехе в программу?

Нетипизированый файл.

Цитата(VoAnt @ 31.10.2005, 12:05)

Как этот файл f запустить???

Перед этим нужно его вытащить оттуда, а потом создать временный файл на жёстком диске, запустить вот так:

Код

uses ShellAPI,...     ...     ShellExecute(h, 'open', <Путь к exe-файлу>, nil, nil, SW_SHOWNORMAL);     ...

А потом программно удалить..

Так, все оказалось проще паренной репы

Я исспользовал OLE контейнер..

Ole контейнер на форму, и дабл кликом выбираем какой файл добавить.. Все из контейнера запустить exe ещё проще.


Все решено.

Код

Так теперь поясню что значит "через ресурсы" на примере JPEG файла

1)Создайте текстовый файл с расширением ".rc".Имя этого файла должно отличаться
от имени файла - пректа или любого модуля проекта.
Файл должен содержать строку вроде: MYJPEG JPEG C: \DownLoad\MY.JPG
где:
"MYJPEG" имя ресурса
"JPEG" пользовательский тип ресурса
"C: \DownLoad\MY.JPG" руть к JPEG файлу.

Пусть например rc - файл называется "foo.rc"

Запустите BRCC32.exe(Borland Resource CommandLine Compiler) - программа находится
в каталоге Bin Delphi / C + +Builder'а - передав ей в качестве параметра полный путь
к rc - файлу.
В нашем примере:

C: \DelphiPath\BIN\BRCC32.EXE C: \ProjectPath\FOO.RC
Вы получите откомпилированный ресурс - файл с расширением ".res".
(в нашем случает foo.res).
Далее добавте ресурс к своему приложению.

Код

{Грузим ресурс}  {$R FOO.RES}  uses Jpeg;  procedure LoadJPEGFromRes(TheJPEG: string; ThePicture: TPicture);  var    ResHandle: THandle;    MemHandle: THandle;    MemStream: TMemoryStream;    ResPtr: PByte;    ResSize: Longint;    JPEGImage: TJPEGImage;  begin    ResHandle := FindResource(hInstance, PChar(TheJPEG), 'JPEG');    MemHandle := LoadResource(hInstance, ResHandle);    ResPtr := LockResource(MemHandle);    MemStream := TMemoryStream.Create;    JPEGImage := TJPEGImage.Create;    ResSize := SizeOfResource(hInstance, ResHandle);    MemStream.SetSize(ResSize);    MemStream.Write(ResPtr^, ResSize);    FreeResource(MemHandle);    MemStream.Seek(0, 0);    JPEGImage.LoadFromStream(MemStream);    ThePicture.Assign(JPEGImage);    JPEGImage.Free;    MemStream.Free;  end;  procedure TForm1.Button1Click(Sender: TObject);  begin    LoadJPEGFromRes('MYJPEG', Image1.Picture);  end;

Это сообщение отредактировал(а) Girder - 31.10.2005, 17:22