Hirdetés
- Magga: PLEX: multimédia az egész lakásban
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- ldave: New Game Blitz - 2025
- Sundesz: 20 éve a PH!-n
- jakra: Retro gyujtemenyem (cloud synced for safety...)
- WireGuard VPN a mindennapokra
Új hozzászólás Aktív témák
-
pIIrash
tag
unit un_RMethods;
interface
uses Windows, SysUtils, Registry;
const
CurVer = 'SOFTWARE\Microsoft\Windows\CurrentVersion\';
R_UninstPrg = CurVer + 'Uninstall';
R_RUN = CurVer + 'Run';
procedure SetStartWithWindows(AppName, AppTitle: string);
procedure SetRegistryValue(RootKey: HKEY; Key, KeyName, Value, regType: string);
implementation
procedure SetRegistryValue(RootKey: HKEY; Key, KeyName, Value, regType: string);
var
Registry: TRegistry;
begin
Registry := TRegistry.Create;
with Registry do
begin
try
RootKey := RootKey;
if OpenKey(Key, False) then
begin
if regType = 'STR' then WriteString(KeyName, Value);
if regType = 'BOL' then WriteBool(KeyName, StrToBool(Value));
if regType = 'INT' then WriteInteger(KeyName, StrToInt(Value));
end;
finally
Free;
end;
end;
end;
function GetRegistryValue(RootKey: HKEY; Key, Value, regType: string): string;
var
Registry: TRegistry;
TempValue: string;
begin
Registry := TRegistry.Create;
with Registry do
begin
try
RootKey := RootKey;
if OpenKey(Key, False) then
begin
if regType = 'STR' then TempValue := Registry.ReadString(Value);
if regType = 'BOL' then TempValue := BoolToStr(ReadBool(Value));
if regType = 'INT' then TempValue := IntToStr(ReadInteger(Value));
end;
finally
Free;
end;
end;
Result := TempValue;
end;
pl: beírás:
procedure SetStartWithWindows(AppName, AppTitle: string);
begin
SetRegistryValue(HKEY_LOCAL_MACHINE, R_RUN, <Program elérési útja>, <Program neve>, 'STR');
end;
pl: kiolvasás:
InstallPath := GetRegistryValue(HKEY_LOCAL_MACHINE, SOFTWARE\<A program neve>\, A kulcs amiből olvasni akarsz);
Remélem segít!
[Szerkesztve] -
tbs
addikt
Szerintem ha csak teheted ódzkodj a regisztritől. Extrém esetben telefonon kell a hozzá nem értő júzet irányítanod egy kis hackeléshez. A regisztriben tök könnyen futhat bele jogosultsági gondokba a tudtán/tudtodon kívül, és adminként könnyebben barmolhatja szét egy klasszikus ''tüsszentős'' egérmozdulattal a windows-át.
Ini párti vagyok. Ha a %WINDIR%-be rakod, vagy a program mellé, fullpath sem kell neki, notepaddal következmények nélkül szerkesztheti.
Amúgy a delphi helpje elég jó példákat hoz. Sajnos a Delphi5 registry komponensei alapban mindig írás/olvasásra akarják a kulcsokat megnyitni, ebből adódhat probléma, figyelj rá!
-
czappa
aktív tag
-
ReJim
őstag
az a jelenség (amit lol-ként jellemeztél
) az azért fordult elő, mert a delphi mindenképpen vizsgálja, ha belőle futtatod.
le lehet kapcsolni, hogy ne legyen ilyen debugg:
Tools menü ->Debugger Options -> Languages Exceptions (3-dik) fül -> Stop Delphi exceptions pipát kivesz.
ekkor ha try-except, és kivétel lesz, akkor nem fog bejönni a delphi hibajüzi, és nem száll el a progi.
(tipp: ha elszáll a programod, akkor ctrl+f2-vel időt spórolsz, azzal nullázod a progit, enm lesz ao tt a fagyás.) -
Jester01
veterán
Elõrebocsátom, hogy csak tippem van, nem értek delphihez
Szóval elõször is a try után nem kell esetleg begin-end blokk ?
Illetve ha nem használod fel az r értékét akkor valószínûleg kioptimalizálja a fordító az osztást. (Mondjuk mivel konstansok vannak, ezt illene egyébként is elkövetnie.)
Ezenkívül nem tudom van-e lehetõség delphiben mindent elkapó kivételkezelõ írására, mert egy olyat jó lenne még odatenni, hogy kiírja valójában milyen exception volt.
)
Új hozzászólás Aktív témák
- Borderlands 4
- Beárazták a Nubia Z80 Ultra európai verzióját
- BestBuy topik
- Milyen billentyűzetet vegyek?
- Home server / házi szerver építése
- Milyen TV-t vegyek?
- Flint 2 OFF topik
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Apple iPhone 17 Pro Max – fennsík
- Miért fárad gyorsabban az iPhone akku, mint az androidos?
- További aktív témák...
- Bontatlan! Új Lenovo Thinkpad T14 G5 Tartós Üzleti Laptop 14" -45% Ultra 7 165U 16/512 FHD+ Magyar!
- Bomba Ár! Fujitsu LifeBook E751 - i5-2GEN I 4GB I 500GB I DVDRW I 15,6" HD I Cam I W10 I Gari!
- Bomba ár! Dell Latitude E6440 - i5-4GEN I 8GB I 256SSD I 14" HD I HDMI I Cam I W10 I Garancia!
- Bomba ár! Dell Latitude E6540 - i5-4GEN I 8GB I 500GB I HDMI I 15,6" HD I Cam I W10 I Garancia!
- Bomba Ár! Lenovo ThinkPad E15 G4 AMD - Ryzen 5 5625U I 8GB I 256SSD I 15,6" FHD I HDMI I W11 I Gari
- HIBÁTLAN iPhone 13 Pro Max 256GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS3755, 100% Akkumulátor
- Telefon felvásárlás!! iPhone 16/iPhone 16 Plus/iPhone 16 Pro/iPhone 16 Pro Max
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7700X 32/64GB RAM RTX 5070 Ti 16GB GAMER PC termékbeszámítással
- Telefon felvásárlás!! iPhone 16/iPhone 16 Plus/iPhone 16 Pro/iPhone 16 Pro Max
- LG 65B3 -65" OLED - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - PS5 és Xbox Ready
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest