on open theApp

    set appPath to POSIX path of theApp as text
    if (appPath ends with ".app/") then
        set infoPath to appPath & "Contents/Info"
        set appPathRetina to appPath
        set appPathRetina to text 1 thru ((appPathRetina's length) - 5) of appPathRetina as text
        set appPathRetina to appPathRetina & "_retina.app/"
        set plutilCmd to "plutil -convert xml1 " & quoted form of infoPath & ".plist"
        set defaultsCmd to "defaults write " & quoted form of infoPath & " NSHighResolutionCapable true"
        --do shell script plutilCmd with administrator privileges
        --do shell script defaultsCmd with administrator privileges
        --do shell script plutilCmd with administrator privileges
        set appPath to (POSIX file appPath) as string
        set appPathRetina to (POSIX file appPathRetina) as string
        --duplicate item (POSIX file infoPath & ".plist") to (path to desktop as Unicode text) with replacing
        --do shell script "cp " & appPath & " " & appPathRetina
        display dialog defaultsCmd
    else
        display dialog "Eine Applikation auf das Icon ziehen"
    end if

end open

-- defaults read filename ohne plist
-- NSHighResolutionCapable
--defaults write /Users/fabio/Desktop/Chrome.app/Contents/Info NSHighResolutionCapable true

--plutil -convert xml1 /Users/fabio/Desktop/Chrome.app/Contents/Info.plist