Aktív témák

• #20 Diskcopy tag Zsolteeeee #19

  2005-04-28 08:13:25 #20

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Diskcopy

  tag

  válasz Zsolteeeee #19 üzenetére

  Bővebben: link

• #16 Diskcopy tag

  2005-04-19 19:10:27 #16

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Diskcopy

  tag

  GetClassName(PMOUSEHOOKSTRUCT(lParam)^.HWND, szClassName,
  SizeOf(szClassName));
  if lstrcmp(@szClassName[0], @ie_name[1]) = 0 then
  
  
  ahogy látod itt használja.. Mouse Hooknál kell és azért kell, hogy mi az ahol ez történjen.. Ennek a Classnak eza neve, amit ott megadott felül.. Bonyolult elmagyarázni, de így kell csinálni és kész
  
  GetClassName(PMOUSEHOOKSTRUCT(lParam)^.HWND, szClassName,
  SizeOf(szClassName));
  if lstrcmp(@szClassName[0], @ie_name[1]) = 0 then
  

• #14 Diskcopy tag

  2005-04-19 18:53:04 #14

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Diskcopy

  tag

  Na adok még neked ilyeneket, látom komplett böngészőt akarsz csinálni
  Kedvencekhez adás: Bővebben: link
  JavaScript hívás Bővebben: link
  Postolás TwebBrowserral Bővebben: link
  HTML kód mentése Bővebben: link Ha valami kell még szólj

• #13 Diskcopy tag Zsolteeeee #12

  2005-04-19 18:44:37 #13

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Diskcopy

  tag

  válasz Zsolteeeee #12 üzenetére

  Kukkantsd meg pl ezt.. ez szövegkeresés a weboldalon. Bővebben: link ilyesmire gondoltál?
  meg nézheted mondjuk ezeket is: Bővebben: link
  Bővebben: link
  
  [Szerkesztve]

• #10 Diskcopy tag Diskcopy #9

  2005-04-13 19:20:11 #10

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Diskcopy

  tag

  válasz Diskcopy #9 üzenetére

  Na, találtam neked konkrét sourcet. Viszonylag rövid is.. Bővebben: link
  
  amint látod ez egy saját popupmenu-t használ, amit te raksz le a formra.
  Result := HC_SKIP;
  Form1.popupmenu1.popup(X, Y); <-- Itt hivatkozik rá, tehát ha te nem popupmenu1-re nevezed el a komponenst(popupmenu.name) akkor itt írd át. Remélem most már minden ok
  
  
  [Szerkesztve]

• #9 Diskcopy tag Zsolteeeee #8

  2005-04-13 19:13:52 #9

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Diskcopy

  tag

  válasz Zsolteeeee #8 üzenetére

  Ja, hogy neked külön felugró menü kell. Nem próbáltad ki, hogy leteszel egy popup menüt és a TWebBrowser popupmenü propertyhez megadod azt? azt még próbáld már ki légyszi, akár a a linkelt példán is.

• #6 Diskcopy tag

  2005-04-13 10:57:08 #6

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Diskcopy

  tag

  Itt egy másik megoldás. ezt teszteltem: Bővebben: link

• #5 Diskcopy tag

  2005-04-13 10:54:48 #5

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Diskcopy

  tag

  Talán ez? :
  
  function IERestrictionsSettings(Key: string; Disabled: Boolean): Boolean;
  var
  reg: TRegistry;
  begin
  Result := TRUE;
  Reg := TRegistry.Create;
  with Reg do try
  RootKey := HKEY_CURRENT_USER;
  OpenKey('Software\Policies\Microsoft\Internet Explorer\Restrictions',
  True);
  WriteInteger(Key, Integer(Disabled));
  CloseKey;
  except
  Result := FALSE;
  end;
  Reg.Free;
  end;
  
  
  function DisableContextMenu(Disabled: Boolean): Boolean;
  begin
  Result := IERestrictionsSettings('NoBrowserContextMenu', Disabled);
  end;
  
  Ezt meghívod programfutásnál True val, aztán kilépésnél false-al. Hátha
  
  

Aktív témák