MS, как всегда, немного врет. Только что попробовал применить волшебный рег-файл к Home edishn.
Мини - установка запустилась и прошла полностью нормально. Хотя, MS пишет, что мини-утановка невозможна для хомяка. Поэтому и я не заморачивался при работе с образами по поводу мини-setup.
Так что, наверное в новой версии для заливки напишу свой фейк-сетап и буду использовать его.
sysprep не дает на хомке выставить ключик -mini, но внести рег-файл перед завершением работы запечатаного образа не проблема.
Oleg_II,
Цитата Oleg_II:
|
В идеале бы только определение драйверов и устройсв запускать, а все остальное нафик... »
|
UpdatePnpDeviceDrivers();
Пути к драйверам должны уже быть внесены в реестр.
Код:
function IsNtOs:boolean;
var
ver: TOSVERSIONINFO;
begin
ver.dwOSVersionInfoSize := Sizeof(ver);
GetVersionEx(ver);
result:= ver.dwPlatformId=VER_PLATFORM_WIN32_NT;
end;
function AdjustDriverPrivileges:boolean;
var
handle, ph: THandle;
pid, n: DWORD;
luid: TLargeInteger;
priv: TTokenPrivileges;
dummy: PTokenPrivileges;
Err: DWORD;
begin
if IsNtOs then begin
result:=false;
pid := GetCurrentProcessId;
ph := OpenProcess(PROCESS_ALL_ACCESS, false, pid);
if not OpenProcessToken(ph, TOKEN_ADJUST_PRIVILEGES, handle) then exit;
if not LookupPrivilegeValue(nil, 'SeLoadDriverPrivilege', luid) then exit;
priv.PrivilegeCount := 1;
priv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
priv.Privileges[0].Luid := luid;
dummy := nil;
AdjustTokenPrivileges(handle, false, priv, 0, dummy^, n);
Err := GetLastError;
if Err <> ERROR_SUCCESS then exit;
end;
result:=true;
end;
function CleanupPfantom: boolean;
var
hAllDevices: H_DEV;
dwInfo: DWORD;
Data: SP_DEVINFO_DATA;
Status: DWORD;
ProbNumer: DWORD;
rmdParams:TSPRemoveDeviceParams;
begin
result:=false;
hAllDevices := SetupDiGetClassDevsEx(nil, nil, 0,
DIGCF_ALLCLASSES, nil, nil, 0);
if DWORD(hAllDevices) <> INVALID_HANDLE_VALUE then
try
FillChar(Data, SizeOf(SP_DEVINFO_DATA), 0);
Data.cbSize := SizeOf(SP_DEVINFO_DATA);
dwInfo := 0;
if SetupDiEnumDeviceInfo(hAllDevices, dwInfo, Data) then
begin
while SetupDiEnumDeviceInfo(hAllDevices, dwInfo, Data) do
begin
if CM_Get_DevNode_Status(@Status, @ProbNumer, Data.DevInst, 0) = CR_NO_SUCH_DEVNODE then
if Status = 0 then begin
rmdParams.ClassInstallHeader.cbSize := sizeof(SP_CLASSINSTALL_HEADER);
rmdParams.ClassInstallHeader.InstallFunction := DIF_REMOVE;
rmdParams.Scope := DI_REMOVEDEVICE_GLOBAL;
rmdParams.HwProfile := 0;
SetupDiSetClassInstallParams(hAllDevices, @Data, @rmdParams.ClassInstallHeader, sizeof(TSPRemoveDeviceParams));
SetupDiCallClassInstaller(DIF_REMOVE,hAllDevices,@Data);
{CM_Uninstall_DevNode( Data.DevInst,0); }
result:=true;
end;
Inc(dwInfo);
end;
end;
finally
if DWORD(hAllDevices) <> INVALID_HANDLE_VALUE then
SetupDiDestroyDeviceInfoList(hAllDevices);
end;
end;
function IsProblemPresent:boolean;
var
hAllDevices: H_DEV;
dwInfo: DWORD;
Data: SP_DEVINFO_DATA;
Status: DWORD;
ProbNumer: DWORD;
begin
result:=false;
hAllDevices := SetupDiGetClassDevsEx(nil, nil, 0,
DIGCF_PRESENT or DIGCF_ALLCLASSES, {hDev} nil, nil, 0);
if DWORD(hAllDevices) <> INVALID_HANDLE_VALUE then
try
FillChar(Data, SizeOf(SP_DEVINFO_DATA), 0);
Data.cbSize := SizeOf(SP_DEVINFO_DATA);
dwInfo := 0;
if SetupDiEnumDeviceInfo(hAllDevices, dwInfo, Data) then
begin
while SetupDiEnumDeviceInfo(hAllDevices, dwInfo, Data) do
begin
if CM_Get_DevNode_Status(@Status, @ProbNumer, Data.DevInst, 0) = CR_SUCCESS then
if (Status and DN_HAS_PROBLEM)<>0 then begin
result:=true;
exit;
end;
Inc(dwInfo);
end;
end;
finally
if DWORD(hAllDevices) <> INVALID_HANDLE_VALUE then
SetupDiDestroyDeviceInfoList(hAllDevices);
end;
end;
function DeleteProblemDevice: boolean;
var
hAllDevices: H_DEV;
dwInfo: DWORD;
Data: SP_DEVINFO_DATA;
Status: DWORD;
ProbNumer: DWORD;
rmdParams:TSPRemoveDeviceParams;
begin
result:=false;
hAllDevices := SetupDiGetClassDevsEx(nil, nil, 0,
DIGCF_PRESENT or DIGCF_ALLCLASSES, nil, nil, 0);
if DWORD(hAllDevices) <> INVALID_HANDLE_VALUE then
try
FillChar(Data, SizeOf(SP_DEVINFO_DATA), 0);
Data.cbSize := SizeOf(SP_DEVINFO_DATA);
dwInfo := 0;
if SetupDiEnumDeviceInfo(hAllDevices, dwInfo, Data) then
begin
while SetupDiEnumDeviceInfo(hAllDevices, dwInfo, Data) do
begin
if CM_Get_DevNode_Status(@Status, @ProbNumer, Data.DevInst, 0) = CR_SUCCESS then
if (Status and DN_HAS_PROBLEM)<>0 then begin
rmdParams.ClassInstallHeader.cbSize := sizeof(SP_CLASSINSTALL_HEADER);
rmdParams.ClassInstallHeader.InstallFunction := DIF_REMOVE;
rmdParams.Scope := DI_REMOVEDEVICE_GLOBAL;
rmdParams.HwProfile := 0;
SetupDiSetClassInstallParams(hAllDevices, @Data, @rmdParams.ClassInstallHeader, sizeof(TSPRemoveDeviceParams));
SetupDiCallClassInstaller(DIF_REMOVE,hAllDevices,@Data);
{CM_Uninstall_DevNode( Data.DevInst,0); }
result:=true;
end;
Inc(dwInfo);
end;
end;
finally
if DWORD(hAllDevices) <> INVALID_HANDLE_VALUE then
SetupDiDestroyDeviceInfoList(hAllDevices);
end;
end;
function Enumerate:boolean;
var
dwInfo: DWORD;
Status: DWORD;
begin
Status:= CM_Locate_DevNode(dwInfo ,nil, CM_LOCATE_DEVNODE_NORMAL);
result:= CM_Reenumerate_DevNode(Status, CM_REENUMERATE_NORMAL) = CR_SUCCESS;
end;
function WaitEndPnp(WaitProc: TWaitMsgProc): boolean;
var
WaitTime:integer;
begin
WaitTime:=100;
result:=false;
if CMP_WaitNoPendingInstallEvents(0) = WAIT_OBJECT_0 then exit;
if CMP_WaitNoPendingInstallEvents(0) = WAIT_FAILED then exit;
while (CMP_WaitNoPendingInstallEvents(100) = WAIT_TIMEOUT) and
(WaitTime>0) do begin
if @WaitProc<>nil then WaitProc;
dec(WaitTime);
result:=true;
end;
end;
function UpdatePnpDrivers(WaitProc: TWaitMsgProc):boolean;
begin
if AdjustDriverPrivileges then begin
DeleteProblemDevice;
Enumerate;
sleep(1000);
WaitEndPnp(WaitProc);
result:= UpdatePnpDeviceDrivers = 0;
WaitEndPnp(WaitProc);
end else result:=false;
end;
Тогда просто проигнорируйте 
