svnno****@sourc*****
svnno****@sourc*****
2009年 10月 19日 (月) 21:14:42 JST
Revision: 3652 http://sourceforge.jp/projects/ttssh2/svn/view?view=rev&revision=3652 Author: maya Date: 2009-10-19 21:14:42 +0900 (Mon, 19 Oct 2009) Log Message: ----------- é¢é£ä»ãã OS ã«éç¥ããããã«ããã Boris ããã®ææãåã㦠Modified Paths: -------------- trunk/installer/teraterm.iss -------------- next part -------------- Modified: trunk/installer/teraterm.iss =================================================================== --- trunk/installer/teraterm.iss 2009-10-18 16:15:17 UTC (rev 3651) +++ trunk/installer/teraterm.iss 2009-10-19 12:14:42 UTC (rev 3652) @@ -442,6 +442,13 @@ ja.comp_TTXRecurringCommand=èúIɶñðM·é [Code] +const + SHCNF_IDLIST = $0000; + SHCNE_ASSOCCHANGED = $08000000; + +procedure SHChangeNotify(wEventId, uFlags, dwItem1, dwItem2: Integer); +external 'SHCha****@shell***** stdcall'; + var UILangFilePage: TInputOptionWizardPage; @@ -772,6 +779,8 @@ RegDeleteValue(HKEY_CLASSES_ROOT, 'telnet\shell', ''); end; + SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, 0, 0); + end; // ssDone end; // case CurStep of end; // CurStepChanged @@ -827,7 +836,9 @@ RegDeleteKeyIfEmpty(HKEY_CURRENT_USER, 'Software\ShinpeiTools'); end; end; - + + SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, 0, 0); + // directory is deleted only if empty RemoveDir(app); end;