Rouch » 27.09.2004 (Пн) 14:00
Esli ya ponyal, to 4elovek sprosil kak s uje gotovim EXE taskat' kartinku bez fayla! A vi tut purgu pro RES gonite.
Tak vot. V etom slu4ae ti delaesh tak:
1. Pishesh Function, kotoriy gruzit kartinku iz samogo sebya (EXE file). Esli nado, to predvaritel'no sohranyaesh v temp. Dlya etogo pishesh 4to-to tipa:
CONST MyEXESize=1234, PictureSize=4321
OPEN App.EXEname FOR BINARY AS #1
DIM S AS STRING
S=STRING(0, PictureSize)
GET #1,MyExeSize+1,S
CLOSE #1
OPEN "TEMP.JPG" FOR BINARY AS #1
PUT #2,,S
CLOSE
Picture1.Picture=LoadPicture("TEMP.JPG")
2. Compile EXE File. Smotrish ego razmer. Zahodish v progu, stavish razmer!
3. Eshe raz Compile.
4. Priattachivaesh kartinku k EXE. Esli budesh delat' eto regulyarno, to mojesh function napisat'
! Esli failov neskol'ko, to perviy kusok baytov v konce EXE opisivaet ih.
4to eshe, ah! Da. Rabotaet eto blagodarya tomu, 4to ti ne tresh kod samogo EXE, a do togo 4to dopisano v konce EXE Window naplevat'.
! Sam proval - rabotaet normal'no!
Uda4i.
Be all that you want be.