Fórum Root.cz
Hlavní témata => Vývoj => Téma založeno: DELPHI7 16. 12. 2020, 18:23:36
-
Kontrola zdrojáku do DELPHI
Ta aplikace do DELPHI funguje divně a při otevření souboru DPR následuje zásek. Prosím o zkontrolování zdrojáku.
Nedělal jsem ji, tu aplikaci. Je od jednoho člověka - DELPHI Embarcadero 10.4.1 PRO. Děkuji předem za
pochopení. Jsem začátečník v programování. Zkoušel jsem XP, WIN 7 a WIN 10. Stejný výsledek.
Mám XP PRO legal. Děkuji.
-
Mohl bych to prepsat do jineho jazyka?
-
Díky, neovládám jiné jazyky. Děkuji.
-
S tím zdrojákem je možno nakládat libovolně.
-
Díky, neovládám jiné jazyky. Děkuji.
Jen bych rád poradil, aby jste se naučil jazyk který není zombie.
-
Ten DPR soubor je obyceny textovy soubor, ktery obsahuje:
program WinProduKey;
uses
Vcl.Forms,
uWinProduKey in 'uWinProduKey.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.a na prvni pohled vypada syntakticky spravne. Chybu bych hledal jinde.
-
Nejsem zručný programátor. Jen dobře ovládám PC s jakýmkoliv OS. Děkuji.
-
Jestli potrebujes jen ten program, tak to muzu prepsat a skompilovat do hotoveho exe souboru a nemusis se trapit..
-
Děkuji. Musím poděkovat. Málo věcí je zdarma. Ještě jednou děkuji.
-
Zkusil bych před otevřením projektu v Delphi, smazat soubory WinProduKey.dsk a WinProduKey.identcache...
-
Dobrá rada od uživatele DAKS . Podle jeho rady se soubor DPR otevře. Děkuji.
-
autor dotazu by si mel sehnat delphi IDE a pak uz by mu to mohlo fachcit.
-
Potřebuji EXE soubor. Děkuji. Chvilku bude pauza, pak se vrátím.
-
Zitra to tady mas.
-
Jsem zpátky. Jinak děkuji.
-
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
-
Nejde mi to. Mám 32 bitová WIN.
-
Mám hlášku, zítra ji přiložím.
-
V Delphi mi neprojde čtení z registru, resp. GetDataType:
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
-
Hláška
-
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.
-
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?
-
IDE mám nainstalované a je to podobné DELPHI. Nejsem programátor. Ať mě někdo postrčí. Děkuji.
-
Není to projekt do školy, tu mám za sebou. Jsem středoškolák a je mi přes 40 let.
-
DELPHI
-
Co tohle?
https://www.nirsoft.net/utils/product_cd_key_viewer.html (https://www.nirsoft.net/utils/product_cd_key_viewer.html)
-
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.
-
Co má podle tebe dělat program, který se snažíš zprovoznit v Delphi?
-
Zobrazit DIGITAL PRODUCT ID jak je to v registrech. Jde o 15 dvojznaků.
-
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 (https://www.gtopala.com/img/digital-product-id.jpg)
-
To vím. Chtělo by to aplikaci, která by to vyplivla bez chození do registru. Prostě abych spustil aplikaci a měl výsledek. Děkuji. Bude pauza.
-
V tom případě se to chce více snažit. Moje rady:
Zapomenout na Delphi (placené/zastaralé). Když už, tak Freepascal (Lazarus IDE).
Já si dám taky pauzu. Ať se daří.
-
A co tohle - https://www.codeproject.com/Articles/15261/Extract-Window-Product-Key-With-an-API (https://www.codeproject.com/Articles/15261/Extract-Window-Product-Key-With-an-API)
-
Není to projekt do školy, tu mám za sebou. Jsem středoškolák a je mi přes 40 let.
Nějak mladý, ne? :D
-
Přeneseno do Lazarusu, zkompilováno do 32-bit exe, testováno ve Win10 64
-
Ak chces iba nacitat hodnotu z registra, tak na to nepotrebujes delphi. Kludne si vystacis s tym, co ma windows v sebe, napr. powershell. Par riadkov, a spustis to dvojklikom (predpokladam, ze si chces nejak ulahcit napr. pri servisovani pc pracu).
-
Děkuji moc. Funguje to v XP. Neudělal bych to. Jestli mužete, popište krok za krokem. Ještě jednou děkuji.
-
Nejsem servisák, mám to jen pro sebe.
-
MalyTomi - Par riadkov, a spustis to dvojklikom - jak se to udělá v XP ? Děkuji.
-
LAZARUS
-
https://www.jiribrejcha.net/2008/03/vydolovani-produktoveho-cisla-z-windows-xp-a-vista-offline-metodou/
-
http://www.dagondesign.com/tools/windows-xp-key-decrypter/
-
https://www.ed.scherer.name/Tools/MicrosoftDigitalProductIDDecoder.html
-
Prosím o návod do Lazarusu. Krok za krokem pro blbce. Děkuji.
-
VÁNOCE