#SingleInstance, Force   ;              Create Resource-Only-DLL - 45L by Suresh Kumar A N   
SetBatchLines, 1ms       ;                    Created: 29-Mar-2008 | Modified: 30-Mar-2008

hUpdate := DllCall( "BeginUpdateResourceA", Str,CreateDLL( "resources.dll" ), Int,0 )

Loop, C:\Orkut\*.jpg  ;  <- point to your resources instead
     {
        Index := 100 + A_Index
        FileGetSize, cbData, %A_LoopFileLongPath%
        FileRead, lpData, %A_LoopFileLongPath%

        DllCall( "UpdateResourceA", UInt,hUpdate
                 , UInt,( RT_RCDATA := 10 )
                 , UInt,Index
                 , UInt,( LANG_NEUTRAL := 0x0 )
                 , UInt,&lpData, UInt,cbData )
     }

DllCall( "EndUpdateResourceA", UInt,hUpdate, Int,0 )
Return                                                     ;   end of auto-execute section
;  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -


CreateDLL( file="empty.dll" ) {
varsetcapacity(z1,90,48),   varsetcapacity(z2,20,48),   varsetcapacity(z3,5,48)
hex=
( join
4D5A900003%Z3%004%Z3%0FFFF0000B8%Z3%%Z3%00004%Z2%%Z2%%Z2%000FF8B00008%Z3%000E1FBA0E00B409C
D21B8014CCD214175746F486F746B657920536372697074696E67204C616E67756167652C205265736F7572636
52D6F6E6C7920444C4C2E24504500004C0103%Z2%%Z3%0E0000E210B0103%Z3%2%Z3%002%Z3%%Z3%00002%Z3%0
02%Z3%001%Z3%%Z3%010001%Z3%0002%Z3%4%Z3%001%Z3%004%Z3%%Z3%%Z3%04%Z3%0004%Z3%%Z3%0002000300
00001%Z3%1%Z3%00001%Z3%%Z3%%Z3%00001%Z2%%Z2%%Z3%%Z3%0%Z2%%Z3%%Z3%%Z3%0003%Z3%0C%Z2%%Z2%000
0%Z1%%Z2%%Z3%%Z3%002E64617461%Z3%004%Z3%0001%Z3%0002%Z3%004%Z2%%Z3%0004%Z3%C02E74657874%Z3
%011%Z3%0002%Z3%0002%Z3%006%Z2%%Z3%0002%Z3%602E72656C6F63%Z3%C%Z3%0003%Z3%0002%Z3%008%Z2%%
Z3%0004%Z3%4%Z2%%Z2%%Z2%%Z2%02E737263%Z3%0002D01%Z3%04%Z3%0002%Z3%00A%Z2%%Z3%00040080006%Z
1%%Z1%%Z1%%Z1%%Z1%%Z1%%Z1%%Z1%%Z1%%Z1%%Z1%%Z1%%Z1%%Z1%%Z1%%Z1%%Z1%%Z1%%Z1%%Z1%%Z1%%Z2%%Z3%
%Z3%8B442408A300100010B801%Z3%0C20C%Z1%%Z1%%Z1%%Z1%%Z1%%Z1%%Z1%%Z1%%Z1%%Z1%%Z1%00002%Z3%0C
%Z3%0053%Z1%%Z1%%Z1%%Z1%%Z1%%Z1%%Z1%%Z1%%Z1%%Z1%%Z1%%Z3%%Z3%%Z3%0D0A
) ; MCode() by Laszlo Hars : http://www.autohotkey.com/forum/viewtopic.php?p=135302#135302
varsetcapacity(bin,(cLen:=StrLen(hex)//2)), h:=dllcall("_lcreat",str,file,int,0)
Loop %cLen%
  numput("0x" substr(hex,2*a_index-1,2),bin,a_index-1,"char")
b:=dllcall("_lwrite",uint,h,str,bin,uint,clen),dllcall("_lclose",uint,h), bin:="", hex:=""
Return b ? file : ""
}