AutoHotkey Community

RegRead, Original_TileWallpaper, HKEY_CURRENT_USER, Control Panel\Desktop, TileWallpaper
RegRead, Original_WallpaperStyle, HKEY_CURRENT_USER, Control Panel\Desktop, WallpaperStyle

DllCall("gdiplus\GdipGetEncoderParameterListSize", "Uint", pImage, "Uint", pCodec, "UintP", nSize)
VarSetCapacity(pi, nSize)
DllCall("gdiplus\GdipGetEncoderParameterList", "Uint", pImage, "Uint", pCodec, "Uint", nSize, "Uint", &pi)

nValue := 14 ; JPEG Transformation: 13 14 15 16 17

EncodeInteger(&pi +  0, 1)                     ; number of list
; 4 - 20                                     ; 16 byte CLSID of Encoder
EncodeInteger(&pi + 20, 1)                     ; number of values
;EncodeInteger(&pi + 24, 4)                     ; type of values
EncodeInteger(&pi + 28, DecodeInteger(&pi + 28) + 4 * (nValue - 13))      ; address of the value

pParam := &pi

DllCall("gdiplus\GdipSaveImageToFile", "Uint", pImage, "Uint", &wFileTo, "Uint", pCodec, "Uint", pParam)


DecodeInteger(ptr)
{
   Return *ptr | *++ptr << 8 | *++ptr << 16 | *++ptr << 24
}

EncodeInteger(ref, val)
{
   DllCall("ntdll\RtlFillMemoryUlong", "Uint", ref, "Uint", 4, "Uint", val)
}

ImageFormatUndefined := "{B96B3CA9-0728-11D3-9D7B-0000F81EF32E}"
ImageFormatMemoryBMP := "{B96B3CAA-0728-11D3-9D7B-0000F81EF32E}"
ImageFormatBMP       := "{B96B3CAB-0728-11D3-9D7B-0000F81EF32E}"
ImageFormatEMF       := "{B96B3CAC-0728-11D3-9D7B-0000F81EF32E}"
ImageFormatWMF       := "{B96B3CAD-0728-11D3-9D7B-0000F81EF32E}"
ImageFormatJPEG      := "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}"
ImageFormatPNG       := "{B96B3CAF-0728-11D3-9D7B-0000F81EF32E}"
ImageFormatGIF       := "{B96B3CB0-0728-11D3-9D7B-0000F81EF32E}"
ImageFormatTIFF      := "{B96B3CB1-0728-11D3-9D7B-0000F81EF32E}"
ImageFormatEXIF      := "{B96B3CB2-0728-11D3-9D7B-0000F81EF32E}"
ImageFormatIcon      := "{B96B3CB5-0728-11D3-9D7B-0000F81EF32E}"

ImageCodecBMP        := "{557CF400-1A04-11D3-9A73-0000F81EF32E}"
ImageCodecJPEG       := "{557CF401-1A04-11D3-9A73-0000F81EF32E}"
ImageCodecGIF        := "{557CF402-1A04-11D3-9A73-0000F81EF32E}"
ImageCodecEMF        := "{557CF403-1A04-11D3-9A73-0000F81EF32E}"
ImageCodecWMF        := "{557CF404-1A04-11D3-9A73-0000F81EF32E}"
ImageCodecTIFF       := "{557CF405-1A04-11D3-9A73-0000F81EF32E}"
ImageCodecPNG        := "{557CF406-1A04-11D3-9A73-0000F81EF32E}"
ImageCodecIcon       := "{557CF407-1A04-11D3-9A73-0000F81EF32E}"

EncoderTransformation   := "{8D0EB2D1-A58E-4EA8-AA14-108074B7B6F9}"
EncoderQuality          := "{1D5BE4B5-FA4A-452D-9CDD-5DB35105E7EB}"
EncoderLuminanceTable   := "{EDB33BCE-0266-4A77-B904-27216099E717}"
EncoderChrominanceTable := "{F2E455DC-09B3-4316-8260-676ADA32481C}"
EncoderCompression      := "{E09D739D-CCD4-44EE-8EBA-3FBF8BE4FC58}"
EncoderColorDepth       := "{66087055-AD66-4C7C-9A18-38A2310B8337}"
EncoderSaveFlag         := "{292266FC-AC40-47BF-8CFC-A85B89A655DE}"
EncoderVersion          := "{24D18C76-814A-41A4-BF53-1C219CCCF797}"
EncoderScanMethod       := "{3A4E2661-3109-4E56-8536-42C156E7DCFA}"
EncoderRenderMethod     := "{6D42C53A-229A-4825-8BB7-5C99E2B9A8B8}"

#NoEnv
#Include CoHelper.ahk

sFileFr := "C:\ImageFr.jpg"   ; Adjust the name
sFileTo := "C:\ImageTo.jpg"   ; Adjust the name

SplitPath, sFileFr, , , sExtFr
SplitPath, sFileTo, , , sExtTo

If (sExtFr <> "JPG") || (sExtTo <> "JPG")
{
   MsgBox % "Both Files must be of JPG! Now Exit the App."
   ExitApp
}

hModule := DllCall("LoadLibrary", "str", "gdiplus.dll")

VarSetCapacity(si, 16, 0)
si := Chr(1)

DllCall("gdiplus\GdiplusStartup", "UintP", pToken, "Uint", &si, "Uint", 0)

DllCall("gdiplus\GdipGetImageEncodersSize", "UintP", nCount, "UintP", nSize)
VarSetCapacity(ci, nSize)
DllCall("gdiplus\GdipGetImageEncoders", "Uint", nCount, "Uint", nSize, "Uint", &ci)

Loop, %nCount%
{
   pTypes := DecodeInteger(&ci + 76 * (A_Index - 1) + 44)
   Unicode2Ansi(pTypes, sTypes)
   If InStr(sTypes, "." . sExtTo)
   {
      pCodec := &ci + 76 * (A_Index - 1)
      Break
   }
}

If !pCodec
   ExitApp

Ansi2Unicode(sFileFr, wFileFr)
Ansi2Unicode(sFileTo, wFileTo)

DllCall("gdiplus\GdipLoadImageFromFile", "str", wFileFr, "UintP", pImage)

DllCall("gdiplus\GdipGetEncoderParameterListSize", "Uint", pImage, "Uint", pCodec, "UintP", nSize)
VarSetCapacity(pi, nSize)
DllCall("gdiplus\GdipGetEncoderParameterList", "Uint", pImage, "Uint", pCodec, "Uint", nSize, "Uint", &pi)

nValue := 14                        ; JPEG Transformation: 13 14 15 16 17
EncodeInteger(&pi +  0, 1)                  ; number of list
;4 - 20                           ; 16 byte CLSID of Encoder
EncodeInteger(&pi + 20, 1)                  ; number of values
EncodeInteger(&pi + 24, 4)                  ; type of values
EncodeInteger(DecodeInteger(&pi + 28), nValue)            ; address of the value
pParam := &pi

/*
nValue := 90                        ; JPEG Quality: 0 - 100
EncodeInteger(&pi + 28, 1)                  ; number of list
;32 - 48                        ; 16 byte CLSID of Encoder
EncodeInteger(&pi + 48, 1)                  ; number of values
EncodeInteger(&pi + 52, 4)                  ; type of values
EncodeInteger(DecodeInteger(&pi + 56), nValue)            ; address of the value
pParam := &pi + 28
*/

DllCall("gdiplus\GdipSaveImageToFile", "Uint", pImage, "Uint", &wFileTo, "Uint", pCodec, "Uint", pParam)

DllCall("gdiplus\GdipDisposeImage", "Uint", pImage)
DllCall("gdiplus\GdiplusShutdown" , "Uint", pToken)
DllCall("FreeLibrary", "Uint", hModule)