;--------------------------------
;General

  !include "StrFunc.nsh"
  ${StrRep} 

  ;Name and file
  Name "EntryDemo"
  OutFile "EntryDemo.exe"

  SetCompress force
  SetCompressor /SOLID lzma


;--------------------------------
Section "Start Menu Shortcuts"

  Var /GLOBAL MailURL
  Var /GLOBAL MailPgm
  Var /GLOBAL MailPgmTMP

  ; ----- mailto:Zuordnungen zum MailClient ermitteln
  ; HKEY_CURRENT_USER\Software\Classes\mailto\shell\open\command
  ReadRegStr $MailPgmTMP HKCU "Software\Classes\mailto\shell\open\command" ""
  ${If} $MailPgmTMP != ""
	StrCpy $MailPgm $MailPgmTMP
  ${EndIf}

  ; HKEY_CLASSES_ROOT\mailto\shell\open\command
  ReadRegStr $MailPgmTMP HKCR "mailto\shell\open\command" ""
  ${If} $MailPgmTMP != ""
	StrCpy $MailPgm $MailPgmTMP
  ${EndIf}
  
  ; HKEY_LOCAL_MACHINE\SOFTWARE\Classes\mailto\shell\open\command
  ReadRegStr $MailPgmTMP HKLM "SOFTWARE\Classes\mailto\shell\open\command" ""
  ${If} $MailPgmTMP != ""
	StrCpy $MailPgm $MailPgmTMP
  ${EndIf}

  StrCpy $MailURL mailto:name@domain.de?subject=mailtitle&body=bla_bla

  MessageBox MB_OK $MailPgm
  ${StrRep} $MailPgm $MailPgm "/mailurl:" ""
  ${StrRep} $MailPgm $MailPgm "/defini" ""
  ${StrRep} $MailPgm $MailPgm "-osint" ""
  ${StrRep} $MailPgm $MailPgm "-compose" ""
  ${StrRep} $MailPgm $MailPgm "%1" ""
  ${StrRep} $MailPgm $MailPgm '""' ""
;  ${StrRep} $MailPgm $MailPgm %1 ""
  MessageBox MB_OK $MailPgm

  CreateDirectory "$SMPROGRAMS\MyEntry"
  CreateShortCut  "$SMPROGRAMS\MyEntry\Mail to me.lnk" $MailPgm $MailURL $MailPgm 0

SectionEnd