ذخیره فایل در برنامه

[mtfa65]

سلام دوستان
من یه برنامه ای نوشتم و می خوام در این برنامه یک فایل exe یا هر فایل با فرمت شناخته شده یا ناشناخته ای رو در برنامه قرار بدم.
بدین صورت که مسیر یک فایلی رو انتخاب کنم با open dialog و پس از زدن دکمه ok این فایل در خود برنامه قرار داده بشه و یک لیبل هم باشه که نام اون فایل رو بنویسه و با کلیل روی اون لیبل اون فایل اجرا بشه.
نمی خوام اجرای اون فایل از روی هار انجام بشه. از روی خود برنامه اجرا بشه مثل این باشه که تو خود برنامه است. البته با باز و بسته کردن برنامه نمی خوام اون فایل رو خود برنامه ذخیره بشه در واقع نمی خوام روی دیتا بیس هم ذخیره بشه.
آیا چنین چیزی امکان پذیر است؟ آیا چنین کامپوننتی وجود دارد؟
مرسی

[hadisalahi2]

آره هست
از این کد استفاده کن

function tpatern.showfileinobject(afile: string;
obj: TWinControl
): HWND;

var
forground: HWND;

hand: HWND;

begin

hand := 0;
forground := GetForegroundWindow;

patern.openfile(afile);

hand := GetForegroundWindow;

while (hand = forground) or (hand = 0) do
begin

hand := GetForegroundWindow;
sleep(100);
end;

Windows.SetParent(hand, obj.Handle);

SetWindowLong(Hand,

GWL_STYLE,
GetWindowLong(Hand, GWL_STYLE)
and not WS_CAPTION);

Result := hand;

end;

[یوسف زالی]

منظور دوستمون چیزی مثل molebox هست. این کد شما نام فایل رو می گیره. ایشون می خواد فایل رو embed کنه.
در سایت کدهایی قرار داده شده که با جستجو می تونید بهش برسید.