home *** CD-ROM | disk | FTP | other *** search
/ 1,500 Photos / 1500PHOTOS.iso / registry.inf < prev    next >
Text File  |  1996-01-25  |  17KB  |  691 lines
  1. HideBitmap 4
  2.  
  3. HideBitmap [BITMAPNUM]
  4.  
  5. HideBitmap [TEXTBITMAPNUM]
  6.  
  7. ClearScreen
  8.  
  9. If [nWinInstaller] = 1
  10. [string11] := Software\SoftKey\PWRALBUM
  11.  
  12. [string13] := PowerAlbum
  13.  
  14. [Number1] := RegCreateKey ClassesRoot [String11]
  15. RegSetValue ClassesRoot [String11] [String13]
  16.  
  17.  
  18. [string11] := Software\SoftKey\imgio
  19.  
  20. [string13] := imgio
  21.  
  22. [Number1] := RegCreateKey ClassesRoot [String11]
  23. RegSetValue ClassesRoot [String11] [String13]
  24.  
  25.  
  26. [string11] := .bmp
  27.  
  28. [string13] := ImgIO.Document
  29.  
  30. [RegKey1] := RegOpenKey ClassesRoot [string11]
  31. If LastErrorCode <> 0
  32. [Number1] := RegCreateKey ClassesRoot [String11]
  33. RegSetValue ClassesRoot [String11] [String13]
  34. Else
  35.     RegCloseKey [RegKey1]
  36. EndIf
  37.  
  38. [string11] := .cgm
  39.  
  40. [string13] := ImgIO.Document
  41.  
  42. [RegKey1] := RegOpenKey ClassesRoot [string11]
  43. If LastErrorCode <> 0
  44. [Number1] := RegCreateKey ClassesRoot [String11]
  45. RegSetValue ClassesRoot [String11] [String13]
  46. Else
  47.     RegCloseKey [RegKey1]
  48. EndIf
  49.  
  50. [string11] := .drw
  51.  
  52. [string13] := ImgIO.Document
  53.  
  54. [RegKey1] := RegOpenKey ClassesRoot [string11]
  55. If LastErrorCode <> 0
  56. [Number1] := RegCreateKey ClassesRoot [String11]
  57. RegSetValue ClassesRoot [String11] [String13]
  58. Else
  59.     RegCloseKey [RegKey1]
  60. EndIf
  61.  
  62.  
  63. [string11] := .WMF
  64.  
  65. [string13] := ImgIO.Document
  66.  
  67. [RegKey1] := RegOpenKey ClassesRoot [string11]
  68. If LastErrorCode <> 0
  69. [Number1] := RegCreateKey ClassesRoot [String11]
  70. RegSetValue ClassesRoot [String11] [String13]
  71. Else
  72.     RegCloseKey [RegKey1]
  73. EndIf
  74.  
  75.  
  76. [string11] := .wpg
  77.  
  78. [string13] := ImgIO.Document
  79.  
  80. [RegKey1] := RegOpenKey ClassesRoot [string11]
  81. If LastErrorCode <> 0
  82. [Number1] := RegCreateKey ClassesRoot [String11]
  83. RegSetValue ClassesRoot [String11] [String13]
  84. Else
  85.     RegCloseKey [RegKey1]
  86. EndIf
  87.  
  88.  
  89. [string11] := .GIF
  90.  
  91. [string13] := ImgIO.Document
  92.  
  93. [RegKey1] := RegOpenKey ClassesRoot [string11]
  94. If LastErrorCode <> 0
  95. [Number1] := RegCreateKey ClassesRoot [String11]
  96. RegSetValue ClassesRoot [String11] [String13]
  97. Else
  98.     RegCloseKey [RegKey1]
  99. EndIf
  100.  
  101.  
  102. [string11] := .TIF
  103.  
  104. [string13] := ImgIO.Document
  105.  
  106. [RegKey1] := RegOpenKey ClassesRoot [string11]
  107. If LastErrorCode <> 0
  108. [Number1] := RegCreateKey ClassesRoot [String11]
  109. RegSetValue ClassesRoot [String11] [String13]
  110. Else
  111.     RegCloseKey [RegKey1]
  112. EndIf
  113.  
  114.  
  115. [string11] := .JPG
  116.  
  117. [string13] := ImgIO.Document
  118.  
  119. [RegKey1] := RegOpenKey ClassesRoot [string11]
  120. If LastErrorCode <> 0
  121. [Number1] := RegCreateKey ClassesRoot [String11]
  122. RegSetValue ClassesRoot [String11] [String13]
  123. Else
  124.     RegCloseKey [RegKey1]
  125. EndIf
  126.  
  127.  
  128. [string11] := .pcd
  129.  
  130. [string13] := ImgIO.Document
  131.  
  132. [RegKey1] := RegOpenKey ClassesRoot [string11]
  133. If LastErrorCode <> 0
  134. [Number1] := RegCreateKey ClassesRoot [String11]
  135. RegSetValue ClassesRoot [String11] [String13]
  136. Else
  137.     RegCloseKey [RegKey1]
  138. EndIf
  139.  
  140.  
  141. [string11] := .pcx
  142.  
  143. [string13] := ImgIO.Document
  144.  
  145. [RegKey1] := RegOpenKey ClassesRoot [string11]
  146. If LastErrorCode <> 0
  147. [Number1] := RegCreateKey ClassesRoot [String11]
  148. RegSetValue ClassesRoot [String11] [String13]
  149. Else
  150.     RegCloseKey [RegKey1]
  151. EndIf
  152.  
  153.  
  154. [string11] := .pwr
  155.  
  156. [string13] := PowerAlbum.Document
  157.  
  158. [RegKey1] := RegOpenKey ClassesRoot [string11]
  159. If LastErrorCode <> 0
  160. [Number1] := RegCreateKey ClassesRoot [String11]
  161. RegSetValue ClassesRoot [String11] [String13]
  162. Else
  163.     RegCloseKey [RegKey1]
  164. EndIf
  165.  
  166.  
  167. [string11] := CLSID\{D485B2C0-4D74-11CE-86C1-000079803483}
  168.  
  169. [string13] := PowerAlbum Document
  170.  
  171. [Number1] := RegCreateKey ClassesRoot [String11]
  172. RegSetValue ClassesRoot [String11] [String13]
  173.  
  174.  
  175. [string11] := CLSID\{D485B2C0-4D74-11CE-86C1-000079803483}\DefaultIcon
  176.  
  177. [string13] := [InstallationDirectory]\PWRALBUM.EXE 1
  178.  
  179. [Number1] := RegCreateKey ClassesRoot [String11]
  180. RegSetValue ClassesRoot [String11] [String13]
  181.  
  182.  
  183. [string11] := CLSID\{D485B2C0-4D74-11CE-86C1-000079803483}\InprocHandler32
  184.  
  185. [string13] := ole32.dll
  186.  
  187. [Number1] := RegCreateKey ClassesRoot [String11]
  188. RegSetValue ClassesRoot [String11] [String13]
  189.  
  190.  
  191. [string11] := CLSID\{D485B2C0-4D74-11CE-86C1-000079803483}\LocalServer32
  192.  
  193. [string13] := [InstallationDirectory]\PWRALBUM.EXE
  194.  
  195. [Number1] := RegCreateKey ClassesRoot [String11]
  196. RegSetValue ClassesRoot [String11] [String13]
  197.  
  198.  
  199. [string11] := CLSID\{D485B2C0-4D74-11CE-86C1-000079803483}\ProgID
  200.  
  201. [string13] := PowerAlbum.Document
  202.  
  203. [Number1] := RegCreateKey ClassesRoot [String11]
  204. RegSetValue ClassesRoot [String11] [String13]
  205.  
  206.  
  207. [string11] := CLSID\{ED0FF780-4907-11CE-80A3-00AA0037306A}
  208.  
  209. [string13] := ImgIO.Document
  210.  
  211. [Number1] := RegCreateKey ClassesRoot [String11]
  212. RegSetValue ClassesRoot [String11] [String13]
  213.  
  214.  
  215. [string11] := CLSID\{ED0FF780-4907-11CE-80A3-00AA0037306A}\AuxUserType\2
  216.  
  217. [string13] := Image IO
  218.  
  219. [Number1] := RegCreateKey ClassesRoot [String11]
  220. RegSetValue ClassesRoot [String11] [String13]
  221.  
  222.  
  223. [string11] := CLSID\{ED0FF780-4907-11CE-80A3-00AA0037306A}\AuxUserType\3
  224.  
  225. [string13] := imgio
  226.  
  227. [Number1] := RegCreateKey ClassesRoot [String11]
  228. RegSetValue ClassesRoot [String11] [String13]
  229.  
  230.  
  231. [string11] := CLSID\{ED0FF780-4907-11CE-80A3-00AA0037306A}\DefaultIcon
  232.  
  233. [string13] := [InstallationDirectory]\IMGIO.EXE,1
  234.  
  235. [Number1] := RegCreateKey ClassesRoot [String11]
  236. RegSetValue ClassesRoot [String11] [String13]
  237.  
  238.  
  239. [string11] := CLSID\{ED0FF780-4907-11CE-80A3-00AA0037306A}\InprocHandler32
  240.  
  241. [string13] := ole32.dll
  242.  
  243. [Number1] := RegCreateKey ClassesRoot [String11]
  244. RegSetValue ClassesRoot [String11] [String13]
  245.  
  246.  
  247. [string11] := CLSID\{ED0FF780-4907-11CE-80A3-00AA0037306A}\Insertable
  248.  
  249.  
  250. [Number1] := RegCreateKey ClassesRoot [String11]
  251.  
  252.  
  253. [string11] := CLSID\{ED0FF780-4907-11CE-80A3-00AA0037306A}\LocalServer32
  254.  
  255. [string13] := [InstallationDirectory]\IMGIO.EXE
  256.  
  257. [Number1] := RegCreateKey ClassesRoot [String11]
  258. RegSetValue ClassesRoot [String11] [String13]
  259.  
  260.  
  261. [string11] := CLSID\{ED0FF780-4907-11CE-80A3-00AA0037306A}\MiscStatus
  262. [string13] := 32
  263.  
  264. [Number1] := RegCreateKey ClassesRoot [String11]
  265. RegSetValue ClassesRoot [String11] [String13]
  266.  
  267.  
  268. [string11] := CLSID\{ED0FF780-4907-11CE-80A3-00AA0037306A}\ProgID
  269. [string13] := Imgio.Document
  270.  
  271. [Number1] := RegCreateKey ClassesRoot [String11]
  272. RegSetValue ClassesRoot [String11] [String13]
  273.  
  274.  
  275. [string11] := CLSID\{ED0FF780-4907-11CE-80A3-00AA0037306A}\Verb\0
  276. [string13] := &Edit,0,2
  277.  
  278. [Number1] := RegCreateKey ClassesRoot [String11]
  279. RegSetValue ClassesRoot [String11] [String13]
  280.  
  281.  
  282. [string11] := CLSID\{ED0FF780-4907-11CE-80A3-00AA0037306A}\Verb\1
  283. [string13] := &Open,0,2
  284.  
  285. [Number1] := RegCreateKey ClassesRoot [String11]
  286. RegSetValue ClassesRoot [String11] [String13]
  287.  
  288.  
  289. [string11] := Imgio.Document
  290. [string13] := Imgio Document
  291.  
  292. [Number1] := RegCreateKey ClassesRoot [String11]
  293. RegSetValue ClassesRoot [String11] [String13]
  294.  
  295. [string11] := Imgio.Document\CLSID
  296. [string13] := {ED0FF780-4907-11CE-80A3-00AA0037306A}
  297.  
  298. [Number1] := RegCreateKey ClassesRoot [String11]
  299. RegSetValue ClassesRoot [String11] [String13]
  300.  
  301.  
  302. [string11] := Imgio.Document\DefaultIcon
  303. [string13] := [InstallationDirectory]\IMGIO.EXE,1
  304.  
  305. [Number1] := RegCreateKey ClassesRoot [String11]
  306. RegSetValue ClassesRoot [String11] [String13]
  307.  
  308.  
  309. [string11] := Imgio.Document\Insertable
  310.  
  311.  
  312. [Number1] := RegCreateKey ClassesRoot [String11]
  313. ;;RegSetValue ClassesRoot [String11] [String13]
  314.  
  315. [string11] := Imgio.Document\protocol\StdFileEditing\server
  316.  
  317. [string13] := [InstallationDirectory]\IMGIO.EXE
  318.  
  319. [Number1] := RegCreateKey ClassesRoot [String11]
  320. RegSetValue ClassesRoot [String11] [String13]
  321.  
  322. [string11] := Imgio.Document\protocol\StdFileEditing\verb\0
  323.  
  324. [string13] := &Edit
  325.  
  326. [Number1] := RegCreateKey ClassesRoot [String11]
  327. RegSetValue ClassesRoot [String11] [String13]
  328.  
  329.  
  330. [string11] := Imgio.Document\shell\open\command
  331.  
  332. [string13] := [InstallationDirectory]\IMGIO.EXE %1
  333.  
  334. [Number1] := RegCreateKey ClassesRoot [String11]
  335. RegSetValue ClassesRoot [String11] [String13]
  336.  
  337.  
  338. [string11] := PowerAlbum.Document
  339. [string13] := PowerAlbum Document
  340.  
  341. [Number1] := RegCreateKey ClassesRoot [String11]
  342. RegSetValue ClassesRoot [String11] [String13]
  343.  
  344.  
  345. [string11] := PowerAlbum.Document\CLSID
  346. [string13] := {D485B2C0-4D74-11CE-86C1-000079803483}
  347.  
  348. [Number1] := RegCreateKey ClassesRoot [String11]
  349. RegSetValue ClassesRoot [String11] [String13]
  350.  
  351.  
  352. [string11] := PowerAlbum.Document\DefaultIcon
  353.  
  354. [string13] := [InstallationDirectory]\PWRALBUM.EXE,1
  355.  
  356. [Number1] := RegCreateKey ClassesRoot [String11]
  357. RegSetValue ClassesRoot [String11] [String13]
  358.  
  359.  
  360. [string11] := PowerAlbum.Document\shell\open\command
  361. [string13] := [InstallationDirectory]\PWRALBUM.EXE %1
  362.  
  363. [Number1] := RegCreateKey ClassesRoot [String11]
  364. RegSetValue ClassesRoot [String11] [String13]
  365.  
  366.  
  367. [string11] := Software\SoftKey\PWRALBUM
  368. [string13] := PowerAlbum
  369.  
  370. [Number1] := RegCreateKey CurrentUser [String11]
  371. RegSetValue CurrentUser [String11] [String13]
  372.  
  373. [string11] := Software\SoftKey\ImgIO.Document\
  374. [string13] := Image IO
  375.  
  376. [Number1] := RegCreateKey CurrentUser [String11]
  377. RegSetValue CurrentUser [String11] [String13]
  378.  
  379. [string11] := Software\SoftKey\ImgIO.Document\Filters\IMGIOAS\.bmp
  380. [string13] := ACCUISR5.DLL
  381.  
  382. [Number1] := RegCreateKey CurrentUser [String11]
  383. RegSetValue CurrentUser [String11] [String13]
  384.  
  385. [string11] := Software\SoftKey\ImgIO.Document\Filters\IMGIOAS\.jpg
  386. [string13] := ACCUISR5.DLL
  387.  
  388. [Number1] := RegCreateKey CurrentUser [String11]
  389. RegSetValue CurrentUser [String11] [String13]
  390.  
  391. [string11] := Software\SoftKey\ImgIO.Document\Filters\IMGIOAS\.pcd
  392. [string13] := ACCUISR5.DLL
  393. [Number1] := RegCreateKey CurrentUser [String11]
  394. RegSetValue CurrentUser [String11] [String13]
  395.  
  396.  
  397. [string11] := Software\SoftKey\ImgIO.Document\Filters\IMGIOAS\.pcx
  398. [string13] := ACCUISR5.DLL
  399.  
  400. [Number1] := RegCreateKey CurrentUser [String11]
  401. RegSetValue CurrentUser [String11] [String13]
  402.  
  403.  
  404. [string11] := Software\SoftKey\ImgIO.Document\Filters\IMGIOAS\.gif
  405. [string13] := ACCUISR5.DLL
  406.  
  407. [Number1] := RegCreateKey CurrentUser [String11]
  408. RegSetValue CurrentUser [String11] [String13]
  409.  
  410.  
  411. [string11] := Software\SoftKey\ImgIO.Document\Filters\IMGIOAS\.tif
  412. [string13] := ACCUISR5.DLL
  413.  
  414. [Number1] := RegCreateKey CurrentUser [String11]
  415. RegSetValue CurrentUser [String11] [String13]
  416.  
  417. [string11] := Software\SoftKey\ImgIO.Document\Filters\IMGIOIM\.cgm
  418. [string13] := IMCGM9.FLT
  419.  
  420. [Number1] := RegCreateKey CurrentUser [String11]
  421. RegSetValue CurrentUser [String11] [String13]
  422.  
  423. [string11] := Software\SoftKey\ImgIO.Document\Filters\IMGIOIM\.drw
  424. [string13] := IMDRW9.FLT
  425.  
  426. [Number1] := RegCreateKey CurrentUser [String11]
  427. RegSetValue CurrentUser [String11] [String13]
  428.  
  429. [string11] := Software\SoftKey\ImgIO.Document\Filters\IMGIOIM\.wmf
  430. [string13] := IMWMF9.FLT
  431.  
  432. [Number1] := RegCreateKey CurrentUser [String11]
  433. RegSetValue CurrentUser [String11] [String13]
  434.  
  435. [string11] := Software\SoftKey\ImgIO.Document\Filters\IMGIOIM\.wpg
  436. [string13] := IMWPG9.FLT
  437.  
  438. [Number1] := RegCreateKey CurrentUser [String11]
  439. RegSetValue CurrentUser [String11] [String13]
  440.  
  441. [string11] := Software\SoftKey\ImgIO.Document\PathToFilters
  442. [string13] := [InstallationDirectory]\filters
  443. [Number1] := RegCreateKey CurrentUser [String11]
  444. RegSetValue CurrentUser [String11] [String13]
  445.  
  446. [string11] := SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\UNINSTALL\pwralbum
  447. [string13] := PowerAlbum
  448.  
  449. [Number1] := RegCreateKey LocalMachine [String11]
  450. RegSetValueEx [Number1] DisplayName String [String13]
  451.  
  452. [string13] := [InstallationDirectory]\uninstal.exe
  453. RegSetValueEx [Number1] UninstallString String [String13]
  454.  
  455. Else
  456.  
  457. [string11] := .bmp
  458.  
  459. [string13] := ImgIO.Document
  460.  
  461. [RegKey1] := RegOpenKey ClassesRoot [string11]
  462. If LastErrorCode <> 0
  463. [Number1] := RegCreateKey ClassesRoot [String11]
  464. RegSetValue ClassesRoot [String11] [String13]
  465. Else
  466.     RegCloseKey [RegKey1]
  467. EndIf
  468.  
  469. [string11] := .cgm
  470.  
  471. [string13] := ImgIO.Document
  472.  
  473. [RegKey1] := RegOpenKey ClassesRoot [string11]
  474. If LastErrorCode <> 0
  475. [Number1] := RegCreateKey ClassesRoot [String11]
  476. RegSetValue ClassesRoot [String11] [String13]
  477. Else
  478.     RegCloseKey [RegKey1]
  479. EndIf
  480.  
  481. [string11] := .drw
  482.  
  483. [string13] := ImgIO.Document
  484.  
  485. [RegKey1] := RegOpenKey ClassesRoot [string11]
  486. If LastErrorCode <> 0
  487. [Number1] := RegCreateKey ClassesRoot [String11]
  488. RegSetValue ClassesRoot [String11] [String13]
  489. Else
  490.     RegCloseKey [RegKey1]
  491. EndIf
  492.  
  493.  
  494. [string11] := .WMF
  495.  
  496. [string13] := ImgIO.Document
  497.  
  498. [RegKey1] := RegOpenKey ClassesRoot [string11]
  499. If LastErrorCode <> 0
  500. [Number1] := RegCreateKey ClassesRoot [String11]
  501. RegSetValue ClassesRoot [String11] [String13]
  502. Else
  503.     RegCloseKey [RegKey1]
  504. EndIf
  505.  
  506.  
  507. [string11] := .wpg
  508.  
  509. [string13] := ImgIO.Document
  510.  
  511. [RegKey1] := RegOpenKey ClassesRoot [string11]
  512. If LastErrorCode <> 0
  513. [Number1] := RegCreateKey ClassesRoot [String11]
  514. RegSetValue ClassesRoot [String11] [String13]
  515. Else
  516.     RegCloseKey [RegKey1]
  517. EndIf
  518.  
  519.  
  520. [string11] := .GIF
  521.  
  522. [string13] := ImgIO.Document
  523.  
  524. [RegKey1] := RegOpenKey ClassesRoot [string11]
  525. If LastErrorCode <> 0
  526. [Number1] := RegCreateKey ClassesRoot [String11]
  527. RegSetValue ClassesRoot [String11] [String13]
  528. Else
  529.     RegCloseKey [RegKey1]
  530. EndIf
  531.  
  532.  
  533. [string11] := .TIF
  534.  
  535. [string13] := ImgIO.Document
  536.  
  537. [RegKey1] := RegOpenKey ClassesRoot [string11]
  538. If LastErrorCode <> 0
  539. [Number1] := RegCreateKey ClassesRoot [String11]
  540. RegSetValue ClassesRoot [String11] [String13]
  541. Else
  542.     RegCloseKey [RegKey1]
  543. EndIf
  544.  
  545.  
  546. [string11] := .JPG
  547.  
  548. [string13] := ImgIO.Document
  549.  
  550. [RegKey1] := RegOpenKey ClassesRoot [string11]
  551. If LastErrorCode <> 0
  552. [Number1] := RegCreateKey ClassesRoot [String11]
  553. RegSetValue ClassesRoot [String11] [String13]
  554. Else
  555.     RegCloseKey [RegKey1]
  556. EndIf
  557.  
  558.  
  559. [string11] := .pcd
  560.  
  561. [string13] := ImgIO.Document
  562.  
  563. [RegKey1] := RegOpenKey ClassesRoot [string11]
  564. If LastErrorCode <> 0
  565. [Number1] := RegCreateKey ClassesRoot [String11]
  566. RegSetValue ClassesRoot [String11] [String13]
  567. Else
  568.     RegCloseKey [RegKey1]
  569. EndIf
  570.  
  571.  
  572. [string11] := .pcx
  573.  
  574. [string13] := ImgIO.Document
  575.  
  576. [RegKey1] := RegOpenKey ClassesRoot [string11]
  577. If LastErrorCode <> 0
  578. [Number1] := RegCreateKey ClassesRoot [String11]
  579. RegSetValue ClassesRoot [String11] [String13]
  580. Else
  581.     RegCloseKey [RegKey1]
  582. EndIf
  583.  
  584.  
  585. [string11] := .pwr
  586.  
  587. [string13] := PowerAlbum.Document
  588.  
  589. [RegKey1] := RegOpenKey ClassesRoot [string11]
  590. If LastErrorCode <> 0
  591. [Number1] := RegCreateKey ClassesRoot [String11]
  592. RegSetValue ClassesRoot [String11] [String13]
  593. Else
  594.     RegCloseKey [RegKey1]
  595. EndIf
  596.  
  597.  
  598. [string11] := Imgio.Document
  599. [string13] := Imgio Document
  600.  
  601. [Number1] := RegCreateKey ClassesRoot [String11]
  602. RegSetValue ClassesRoot [String11] [String13]
  603.  
  604. [string11] := Imgio.Document\CLSID
  605. [string13] := {ED0FF780-4907-11CE-80A3-00AA0037306A}
  606.  
  607. [Number1] := RegCreateKey ClassesRoot [String11]
  608. RegSetValue ClassesRoot [String11] [String13]
  609.  
  610.  
  611. [string11] := Imgio.Document\DefaultIcon
  612. [string13] := [InstallationDirectory]\IMGIO.EXE,1
  613.  
  614. [Number1] := RegCreateKey ClassesRoot [String11]
  615. RegSetValue ClassesRoot [String11] [String13]
  616.  
  617.  
  618. [string11] := Imgio.Document\Insertable
  619.  
  620.  
  621. [Number1] := RegCreateKey ClassesRoot [String11]
  622. ;;RegSetValue ClassesRoot [String11] [String13]
  623.  
  624. [string11] := Imgio.Document\protocol\StdFileEditing\server
  625.  
  626. [string13] := [InstallationDirectory]\IMGIO.EXE
  627.  
  628. [Number1] := RegCreateKey ClassesRoot [String11]
  629. RegSetValue ClassesRoot [String11] [String13]
  630.  
  631. [string11] := Imgio.Document\protocol\StdFileEditing\verb\0
  632.  
  633. [string13] := &Edit
  634.  
  635. [Number1] := RegCreateKey ClassesRoot [String11]
  636. RegSetValue ClassesRoot [String11] [String13]
  637.  
  638.  
  639. [string11] := Imgio.Document\shell\open\command
  640.  
  641. [string13] := [InstallationDirectory]\IMGIO.EXE %1
  642.  
  643. [Number1] := RegCreateKey ClassesRoot [String11]
  644. RegSetValue ClassesRoot [String11] [String13]
  645.  
  646.  
  647. [string11] := PowerAlbum.Document
  648. [string13] := PowerAlbum Document
  649.  
  650. [Number1] := RegCreateKey ClassesRoot [String11]
  651. RegSetValue ClassesRoot [String11] [String13]
  652.  
  653.  
  654. [string11] := PowerAlbum.Document\CLSID
  655. [string13] := {D485B2C0-4D74-11CE-86C1-000079803483}
  656.  
  657. [Number1] := RegCreateKey ClassesRoot [String11]
  658. RegSetValue ClassesRoot [String11] [String13]
  659.  
  660.  
  661. [string11] := PowerAlbum.Document\DefaultIcon
  662.  
  663. [string13] := [InstallationDirectory]\PWRALBUM.EXE,1
  664.  
  665. [Number1] := RegCreateKey ClassesRoot [String11]
  666. RegSetValue ClassesRoot [String11] [String13]
  667.  
  668.  
  669. [string11] := PowerAlbum.Document\shell\open\command
  670. [string13] := [InstallationDirectory]\PWRALBUM.EXE %1
  671.  
  672. [Number1] := RegCreateKey ClassesRoot [String11]
  673. RegSetValue ClassesRoot [String11] [String13]
  674.  
  675.  
  676. [string11] := Software\SoftKey\ImgIO.Document\Filters\IMGIOAS
  677.  
  678. [Number1] := RegCreateKey CurrentUser [String11]
  679.  
  680. [string11] := Software\SoftKey\ImgIO.Document\Filters\IMGIOIM
  681.  
  682. [Number1] := RegCreateKey CurrentUser [String11]
  683.  
  684. [string11] := Software\SoftKey\ImgIO.Document\PathToFilters
  685. [string13] := [InstallationDirectory]\filters
  686. [Number1] := RegCreateKey CurrentUser [String11]
  687. RegSetValue CurrentUser [String11] [String13]
  688.  
  689. EndIf
  690.  
  691.