Program v Delphi se zasekává

[IDontCare]

Tak nakonec jsem nasel to stejno co napsal jiz nekdo jiny. Zdrojovy kod na Github:
https://www.mrpear.net/cz/projekty/863/windows-product-key-finder

[Reklama]

[DELPHI7]

Nejde mi to. Mám 32 bitová WIN.

[DELPHI7]

Mám hlášku, zítra ji přiložím.

[daks]

V Delphi mi neprojde čtení z registru, resp. GetDataType:

Kód: [Vybrat]

if Reg.GetDataType('DigitalProductId') = rdBinary then
...

vrátí neznámý typ hodnoty (rdUnknown), když stejný kód přeložím s Lazarusem, vše je OK.

Zdá se, že v Delphi je problém se čtením klíče typu REG_BINARY.

Testováno na Delphi 2006, Win 10 64, Lazarus 2.0.10

[DELPHI7]

Hláška

[Reklama]

[DELPHI7]

U zdrojáku stačí dát pryč jenom soubor WinProduKey.dsk s koncovkou DSK . Rady od uživatele DAKS . Potřebuji funkční vygenerovaný soubor EXE . Děkuji.

[Wangarad]

Prepac a ake IDE si si nainstaloval na testovanie? Aspon nieco? Ci len cakas? Je milion + 1 utilitka ktora spravy presne to co potrebujes. Je neskutocne vela prikladov ako to napisat. Nechapem co riesis. Nie je to nahodou projekt do skoly?

[DELPHI7]

IDE mám nainstalované a je to podobné DELPHI. Nejsem programátor. Ať mě někdo postrčí. Děkuji.

[DELPHI7]

Není to projekt do školy, tu mám za sebou. Jsem středoškolák a je mi přes 40 let.

[DELPHI7]

DELPHI

[CFM]

Co tohle?
https://www.nirsoft.net/utils/product_cd_key_viewer.html

[DELPHI7]

Co v tom programu mám přesně dělat? Potřebuji vysvětlení po lopatě, abych si to pamatoval. Hůře chápu, ale za to si to dobře pamatuji. Děkuji. Jdu jíst.

[CFM]

Co má podle tebe dělat program, který se snažíš zprovoznit v Delphi?

[DELPHI7]

Zobrazit DIGITAL PRODUCT ID jak je to v registrech. Jde o 15 dvojznaků.

[CFM]

V tom případě stačí spustit regedit.exe (součást win). Najít:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductID
Tvých patnáct je označeno na obrázku zde:
https://www.gtopala.com/img/digital-product-id.jpg