Use Windows VC resource files

// Release the resource to the file: test.exe
Hrsrc res =: findresource (null, makeintresource (idr_flash), _ T ("Flash "));
Hglobal GL =: loadresource (null, Res );
Lpvoid Lp =: lockresource (GL); // search, load, and lock Resources

Gettemppath (max_path, g_szflashplayer );
Lstrcat (g_szflashplayer, _ T ("test.exe "));
Handle hfile =: createfile (g_szflashplayer,
Generic_write,
File_pai_read,
Null,
Create_always,
0,
Null );
If (hfile = invalid_handle_value)
{
Return false;
}
DWORD dwwritten;
If (! : Writefile (hfile, LP,: sizeofresource (null, Res), & dwwritten, null ))
{
Return false; // sizeofresource returns the size of the resource file.
}
: Closehandle (hfile); // close the handle
: Freeresource (GL); // release memory