[Ttssh2-commit] [3652] 関連付けを OS に通知するようにした。

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;



Ttssh2-commit メーリングリストの案内