https://perl5.git.perl.org / perl5.git / blame
| Commit | Line | Data |
|---|---|---|
| e1caacb4 JH |
1 | @echo off\r |
| 2 | \r | |
| 3 | ::- This script must be executed on the PC with an ActiveSync\r | |
| 4 | ::- connection. If it does not work, create the entries with\r | |
| 5 | ::- a remote registry editor or get a registry editor for your\r | |
| 6 | ::- devices.\r | |
| 7 | ::-\r | |
| 8 | ::- You need my cereg.exe program.\r | |
| 9 | \r | |
| 10 | ::- My paths...\r | |
| 11 | set perlexe=\speicherkarte2\bin\perl.exe\r | |
| 12 | set perllib=\speicherkarte2\usr\lib\perl5\r | |
| 13 | \r | |
| 14 | ::- PERL5LIB\r | |
| 15 | cereg -k "HKLM\Environment" -n "PERL5LIB" -v "%perllib%"\r | |
| 16 | \r | |
| 17 | ::- For ShellExecute\r | |
| 18 | cereg -k "HKCR\.pl" -n "" -v "perlfile"\r | |
| 19 | cereg -k "HKCR\perlfile" -n "" -v "Perl Script"\r | |
| 20 | cereg -k "HKCR\perlfile\DefaultIcon" -n "" -v "%perlexe%,-1"\r | |
| 21 | \r | |
| 22 | ::- You might need to fix the quotes if your paths contain spaces!\r | |
| 23 | cereg -k "HKCR\perlfile\Shell\open\command" -n "" -v "%perlexe% %%1"\r | |
| 24 | \r | |
| 25 | cereg -k "HKLM\Environment" -n "ROWS" -v "10"\r | |
| 26 | cereg -k "HKLM\Environment" -n "COLS" -v "75"\r | |
| 27 | cereg -k "HKLM\Environment" -n "PATH" -v "/Speicherkarte2/bin"\r | |
| 28 | cereg -k "HKLM\Environment" -n "UNIXROOTDIR" -v "/Speicherkarte2"\r |