我 心 如 水_XP3_2003_Win8_PE_v19.36.2C.ISO / 感谢 lxl1638

youdy17

感谢水老的不辞劳累的做PE精神

xiaoqiu

好，支持水老 ...

wyxhm

下载珍藏，水老元宵节快乐！

sunhl

原帖由 linyehua 于 2011-2-17 12:47 发表
水老的元宵节礼物，谢谢！
并祝水老元宵节快乐！

我在外地用小本上网，用虚拟机简单测试了一下。谢谢你新春的祝福了！愿你新的一年工作顺利，桃李芬芳！

man33

正在下载元宵版，非常感谢如水，又有新PE使用了

2010fefover

我怎么不能下载，麻烦给个链接，谢谢！！！

12050202

很特别.按F7可换背景图.

自己换图.MINIPE\PIC,,,,,,,,,,,,,,,,,,,,,

12050202

本次加更多外置
有大突破
又上新的高度

建议给精华

sunhl

原帖由 12050202 于 2011-2-17 14:57 发表
本次加更多外置
有大突破
又上新的高度

建议给精华

好的，接受建议！

网虫2008

原帖由 66369 于 2011-2-17 01:00 发表
11.WINIMG程序运行后.ISO关连会失效.故加了个恢复ISO关连的选项. ...

水老新年好，，

呵呵，水老也发现 WINIMG 的这个问题了。。。

哎，也不知道是水老是不屑于看看我的PE，还是不屑于用我的方法，，或是觉得与我解决的方法相同是丢了身份？

其实这个问题在我N个版本之前就解决了，，

我不以高手自居，，所以就不以“剽窃”他人成果为耻，，只要是能让PE发挥它应有的作用，，遇到了问题我会尽量解决，，想不到的问题，有朋友先解决了，就会毫不犹豫是“抄袭”之.....


得，说说我的办法吧：

14.磁盘与光盘工具中，加入 WinImage 8.5：
此程序有个缺点，就是第一次启动时会自做主张地修改注册表，把所有类型的虚拟镜像文件都改成它的默认关联，这样就会使ImDisk虚拟磁盘程序、UltraISO的右键关联与默认打开方式失效。所以编写代码，在此程序第一次启动时执行，恢复ISO等文件关联，仅关联.IMG与.IMA文件。

下面是代码。。

一、PE启动时，PECMD LOAD　调用WINIMG 文件夹中的MAIN.INI，建立最开始的快捷方式：

MAIN.INI 内容如下：
————————————————————————————
LINK %Programs%\磁盘工具\WinImage V 8.5,pecmd.exe,load %CurDir%\start.ini,%CurDir%\winimage.exe
————————————————————————————

二、当第一次执行”磁盘工具\WinImage V 8.5“时，将加载 start.ini

start.ini 内容如下：
————————————————————————————
//重新建立方捷方式，第二次点选时直接执行winimage.exe
FILE %Programs%\磁盘工具\WinImage V 8.5.LNK
LINK %Programs%\磁盘工具\WinImage_V 8.5,%CurDir%\winimage.exe
//对winimage.exe进行注册
exec !=cmd.exe /c "call start.cmd img"
//启动winimage.exe
exec =%CurDir%\winimage.exe
//判断UltraISO程序的具体位置（这是当时针对我的PE的特殊情况，DIY其他PE，可以直接将变量变为绝对路径
ifex x:\program files\inorder\UltraISO\main.ini,ENVI mountpath=x:\program files\inorder!TEAM load x:\inpath.ini|ENVI mountpath=%mountpath%\BASIC
//重新注册ISO的右键等关联
exec !cmd.exe /c "call start.cmd iso"
————————————————————————————

三、这都是后台在运行，影响不到正常使用，，但第一次运行“程序》磁盘工具》WinImage V 8.5”，，一切都在不知不觉中完成了，，省掉了水老在程序菜单中新建的那个“ISO关联的修补快捷”，，而且，水老的修补CMD修补后，IMG和IMA又回到ISO的关联上去了，我想用到了WinImage 程序后，再恢复回去也不符合操作的习惯和延续性。

start.cmd 内容如下：
————————————————————————————
@echo off
PUSHD %~dp0
If "%1"=="img" Goto img
If "%1"=="iso" Goto iso
Exit

:img
reg add "HKCU\Software\WinImage" /f /v "WinImageUseRegistry" /t REG_SZ /d "TRUE"
reg add "HKCU\Software\WinImage" /f /v "NameRegistered" /t REG_SZ /d "zhang"
reg add "HKCU\Software\WinImage" /f /v "CodeRegistered" /t REG_SZ /d "245D8E05"
reg add "HKCU\Software\WinImage" /f /v "sLanguage" /t REG_SZ /d "CHS"
reg add "HKCU\Software\WinImage" /f /v "AlwaysOnTop" /t REG_SZ /d "FALSE"
reg add "HKCU\Software\WinImage" /f /v "DispSplashBegin" /t REG_SZ /d "FALSE"
exit

:iso
SET CurDir=%mountpath%\UltraISO
PATH "%WINDIR%\SYSTEM32"
REG ADD "HKCU\SOFTWARE\EasyBoot Systems\UltraISO\5.0" /f /ve /t REG_SZ /d "%CurDir%"
REG ADD HKCR\UltraISO\DefaultIcon /ve /t REG_SZ /d "%CurDir%\UltraISO.EXE,0" /f>NUL
REG ADD HKCR\UltraISO\shell\open\command /ve /t REG_SZ /d "\"%CurDir%\UltraISO.EXE\" "\"%%1\" /f>NUL
REG ADD "HKCU\SOFTWARE\EasyBoot Systems\UltraISO\5.0" /v DefViewer /t REG_SZ /d "%SystemRoot%\system32\NOTEPAD.EXE" /f>NUL
ftype UltraISO="%CurDir%\ultraiso.exe" "%%1"
assoc .iso=UltraISO
assoc .bin=UltraISO
assoc .isz=UltraISO
assoc .cue=UltraISO
assoc .mds=UltraISO
assoc .mdf=UltraISO
assoc .nrg=UltraISO
exit
————————————————————————————

[ 本帖最后由 网虫2008 于 2011-2-17 16:15 编辑 ]

5503618

感谢水老的辛勤劳作，下载收藏..............
祝元宵节快乐！

yj0176

祝老水节日快乐，上个版本看不到硬盘，这个新十年版本OK了，高兴中。。。。

2831650

元宵节快乐！。。。。。
收藏啦...

chiannet

我不以高手自居，，所以就不以“剽窃”他人成果为耻，，只要是能让PE发挥它应有的作用，，遇到了问题我会尽量解决，，想不到的问题，有朋友先解决了，就会毫不犹豫是“抄袭”之.....

水老，网大，您们新年好！

你的抑制WinImage和ultra互掐方法，我就不客气了，剽了！！

我写的的那个setwp.exe的程序，有幸被水老收录。个人其实对此程序不是很满意：体积太大了些，有几百KB。没办法，我就知道delhi这么点皮毛。要是会C就可以把程序弄得很小的。其实此程序强烈要求lxl638在下次更新pecmd.exe时更新Wall命令 ：PECMD Wall picpath random,对lxl638老大老说简直是不费吹灰之力。






今天重新编写了这个setwp.exe，现在的编译出来后只有88KB。以下是delphi 7代码。

program setwp;
{$APPTYPE CONSOLE}
uses
  Windows,SysUtils,Classes;
var
  p1,WINDIR:string;
  fileslist:TStringList;
  windir1:array[0..255] of char;
  function GET_fileT_list(const vSrcPath: AnsiString; fileslist:TStringList): Boolean;
    var
    r: TSearchRec;
    s: AnsiString;
    begin
    try
    try
        result := false;
        s := IncludeTrailingPathDelimiter(vSrcPath);
        if FindFirst(s + '*.*', faAnyFile, r) = 0 then begin
        repeat
        if (r.Name <> '.') and (r.Name <> '..') then
          if (r.Attr and faDirectory) = faDirectory
        then  GET_fileT_list(s + r.Name, fileslist)
        else  if  (uppercase(ExtractFileExt(r.name))='.JPG') or (uppercase(ExtractFileExt(r.name))='.BMP')  then  fileslist.Add(s + r.Name);
        until FindNext(r) <> 0;
          result := true;
        end;
    except
        on e: Exception do result := false;
    end;
    finally
    FindClose(r);
    end;
  end;
begin
  getwindowsdirectory(windir1,sizeof(windir1));
  windir:=UpperCase(windir1);
  IF COPY(windir,1,3)='X:\' THEN  BEGIN
    P1:='';
    if ParamCount > 0 then  p1:=ExtractFiledir(Paramstr(1));
    if (P1='') OR (NOT DirectoryExists(p1)) then  p1:=ExtractFilePath(Paramstr(0));
    fileslist:=TStringList.Create;
    GET_fileT_list (P1,fileslist);
    IF fileslist.Count>0 THEN begin
    Randomize;
    p1:=windir+'\system32\pecmd.exe WALL '+fileslist[Random(fileslist.Count)];
    fileslist.Free;
    WinExec(pchar(p1),SW_hide);
    end;

  END;
end.

程序运行方法：

直接双击setwp.exe或不带参数或参数指定的路径无效时，在程序所在的目录里（包含子目录）随机选取一副图片做壁纸;

当运行 “setwp d:\q13e”时，若d:\q13e是真实存在的目录，则从d:\q13e里（包含子目录）随机选取一副图片做壁纸；

只能在PE下运行。只支持BMP和JpG两种格式。

[ 本帖最后由 chiannet 于 2011-2-17 22:58 编辑 ]

zxyy

感谢开发PE的各位老师。

zxyy

感谢开发PE的各位老师。

zjpyyyh

谢谢楼主，元宵快乐！

keqin58

顺祝 元宵节快乐，谢谢！

蝉之鹤

十周年特别版一定要收藏啊，谢谢水老！

2010gdmzs

关注并学习，多谢提供。

2011ahwcz

元宵节快乐！。。。。。

wenxin

又见水大新作，马上下载收藏。感谢水大付出的辛勤劳动。

平平正正

元宵节快乐，谢谢水老

zmxaaa

很好的工具，元宵快乐。。

yueming9712

下载收藏了  感谢水老   元宵节快乐

woshi_1001

我不看回复还真没有注意到这是今天刚发的帖子！

8696648

水大辛苦了，祝水老元宵节快乐，谢谢您的大作。

2010chizihan

网启功能相当的好啊！为什么要去掉啊，顾及到体积的话，可以同时放两个版本出来啊！希望下次加网启！

xifangg

元宵节快乐！感谢版主

shan

元宵节快乐！真是好礼物啊