[Creat0R]

возможно ли изменять размеры "рисунков" в 640*480 не теряя качества изображения ? »

Если уменьшать то можно, если увеличивать то нет.

Пробовал так »

Так это же сохраняет в миниатюрную копию (thumbnail), т.е то что обычно используется для предпросмотра, а нужно использовать ImageResize:

Код:

Func Pic_Image($PIC_Load, $Pic_Save, $Pic_Horizontal, $Pic_Vertikal)
    FileDelete($Pic_Save)
    _GDIPlus_Startup()
    $hImage = _GDIPlus_ImageLoadFromFile($PIC_Load)
    $hResized = _GDIPlus_ImageResize($hImage, $Pic_Horizontal, $Pic_Vertikal)
    _GDIPlus_ImageSaveToFile($hResized, $Pic_Save)
    _GDIPlus_ImageDispose($hImage)
    _GDIPlus_ImageDispose($hResized)
    _GDIPlus_Shutdown()
EndFunc

И формат нужно сохранять тот же, иначе нужно использовать _GDIPlus_ImageSaveToFileEx.