[Delphi/Lazarus] Blokovanie Windows Prohlížeč Fotografí

[Scudman]

Zdravím,
potreboval by som zablokovať tento program s tým, že po stlačení tlačítka sa znovu odblokuje, v TaskMgr nieje a vygooglil som, že je to vlastne len knižnica... našiel som aj návod ako to urobiť ale je nefunkčný, teda aspoň pre Windows 7... dá sa to nejako cez príkazový riadok vypnúť a potom znovu zapnúť??? Riešim problém, ktorý blokuje po spustení aplikácie niektoré programy a potreboval by som tam zahrnúť aj tento...(dúfam, že ich nieje viac)

[Milanr1]

Programuješ pouze pro W7?
V každé verzi OS WNT je výchozím správcem grafiky (včetně bitmap) jiný sw.
Např. v OS Vista = plnohodnotná Fotogalerie, žádná parodie jako ve W7/W8.

[JanFiala]

Nechápu, co vlastně chceš dokázat. Co když tam bude mít uživatel nainstalovány nějaké další programy na správu fotografií? Co tě vede k blokování programů a ještě tímto způsobem? Tyhle věci se standardně řeší přes politiky.

[Scudman]

Pán Fiala, ostatné programy mám vyriešené cez procesy, ale Windows Prohlížeč Fotografí sa nespúšťa ako proces, teda aspoň som ho tam nenašiel...

[Vebloud]

Windowsí prohlížeč fotek bude podle mého odhadu součást exploreru.

[JanFiala]

Je to tak. Je to jen forma zobrazeni "souboru".
Zakazat by to slo odregistraci knihovny photoviewer.dll a pro povoleni naslednou registraci.
Bud pouzij commandline RegSvr32 z Windows nebo programově:

Kód: Vybrat vše

{-----------------------------------------------------------------
  Registrace COM serveru
------------------------------------------------------------------}
procedure MyRegisterComServer(const DLLName: string; ARegister: Boolean = True);
type
  TRegProc = function: HResult; stdcall;
const
  RegProcName = 'DllRegisterServer';
  UnRegProcName = 'DllUnregisterServer';
var
  Handle: THandle;
  RegProc: TRegProc;
begin
  Handle := SafeLoadLibrary(DLLName);
  if Handle <= HINSTANCE_ERROR then
    MessageDlg('You need admin rights for this operation', mtError, [MBOK], 0)
  else
  try
    if ARegister then
      RegProc := GetProcAddress(Handle, RegProcName)
    else
      RegProc := GetProcAddress(Handle, UnRegProcName);
    if Assigned(RegProc) then
      try
        RegProc;
      except
      end;
  finally
    FreeLibrary(Handle);
  end;
end;