aNEWmyTubby

 https://stackoverflow.com/questions/46934591/how-to-make-delphi-tbutton-control-stay-pressed    Vcl.Themes,   Vcl.Styles ; StyleAPI StyleElements FInternalImageList  TSeStyle procedure TSysStyleHook.UpdateColors; begin   if (OverrideEraseBkgnd) or (OverridePaint) then     Color := StyleServices.GetStyleColor(scWindow)   else     Color := clBtnFace;   if OverrideFont then     FontColor := StyleServices.GetSystemColor(clWindowText)   else     FontColor := clBlack; end; procedure TSysStyleHook.SetStyleElements(Value: TStyleElements); begin   if Value <> FStyleElements then     begin       FStyleElements := Value;       OverridePaint := (seClient in FStyleElements);       // OverrideEraseBkgnd := OverridePaint;       OverridePaintNC := (seBorder in FStyleElements...

 MyBaseを試してみる。(フィールド作成編): Delphi-fan http://hiderin.air-nifty.com/delphi/2011/09/mybase-dcff.html  http://delphi.ktop.com.tw/board.php?cid=30&fid=66&tid=51084   https://blog.karatos.in/a?ID=00200-12c89300-5e82-48ad-ada0-aab6e1319adf https://stackoverflow.com/questions/67149100/how-to-detect-user-either-in-dbgrid-or-clientdataset-has-deleted-data-in-a-cell https://www.delphipower.xyz/guide_6/working_with_data_using_a_client_dataset.html delphi DataSource TDataSetProvider  Advanced Data TableGram ADTG https://docwiki.embarcadero.com/Libraries/Sydney/en/Data.Win.ADODB.TPersistFormat https://torry.net/quicksearchd.php?String=dataset&page=6

 https://github.com/osmanatam/delphi-foundations  https://github.com/zhugecaomao/DelphiSourceCodeCollection FMX Utilities Tweaks to TClipboard code to compile with newer FMX versions   Misc/Generics.Defaults if done with metaclasses   XE2 book  01. Language basics 02. Enums, numbers, dates and times 04. Classes and records 05. String handling 06. Arrays, collections and enumerators 07. Basic IO 08. Streams Cleaned up source for fuller visual control demo 09. ZIP, XML, Registry and INI files 10. Packages 11. Dynamic typing and expressions 12. RTTI 13. Native APIs Make comment more precise 14. Dynamic libraries 15. Multithreading Another little FileSearchThread.pas thing

  standard Microsoft SDK resource compiler  https://github.com/graphics32/GR32PNG  RC.EXE, the Microsoft SDK Resource Compiler https://forum.lazarus.freepascal.org/index.php?topic=12312.0 https://www.wireshark.org/docs/wsdg_html_chunked/ChToolsMSChain.html https://support.microsoft.com/en-us/topic/an-updated-resource-compiler-for-the-windows-sdk-for-windows-server-2008-and-for-the-net-framework-3-5-is-now-available-a716ac6a-19a7-5b45-b5df-55980cd4cdb4 https://archicadapi.graphisoft.com/documentation/graphisoft-resource-compiler-4 https://docs.microsoft.com/zh-tw/windows/win32/menurc/resource-compiler https://en.wikibooks.org/wiki/Windows_Programming/Resource_Scripts Var    jpg: TJPEGImage;  resStream: TResourceStream; begin   jpg := TJPEGImage.Create;   resStream := TResourceStream.Create(HInstance, 'testJpg', 'jpgtype');   jpg.LoadFromStream(resStream);   Image1.Picture.Assign(jpg);   jpg.Free;   resStream.Free; end; //RC: te...

 [ GDI+ サンプル ] [ G080_RotateTransform による画像とオブジェクトの回転 ] - Mr.XRAY https://stackoverflow.com/questions/65163260/image-transformation-python  https://medium.com/analytics-vidhya/opencv-perspective-transformation-9edffefb2143  https://en.wikipedia.org/wiki/Archimedean_spiral#General_Archimedean_spiral  https://docs.opencv.org/3.4/da/d54/group__imgproc__transform.html#gab75ef31ce5cdfb5c44b6da5f3b908ea4  The Rick Sammon Swirl Effect https://www.geeks3d.com/20110428/shader-library-swirl-post-processing-filter-in-glsl/

 https://stackoverflow.com/questions/5964701/how-to-draw-a-translucent-image-on-a-form transparent background http://delphiexamples.com/forms/transpform.html  https://sourceforge.net/projects/widget32/ https://parnassus.co/transparent-graphics-with-pure-gdi-part-2-and-introducing-the-ttransparentcanvas-class/  Form com área transparente no Lazarus/Windows  http://fanzinepas.blogspot.com/2012/06/form-com-area-transparente-no.html THandle CreateRectRgn CreateRectRgn SetWindowRgn Winuser.h https://www.codeguru.com/cplusplus/transparent-listbox/ https://stackoverflow.com/questions/48511634/partially-transparent-window-opengl-win32   winapi Transparent form layer GetMonitorInfo https://www.experts-exchange.com/articles/1783/Win32-Semi-Transparent-Window.html Layered Windows https://docs.microsoft.com/en-us/previous-versions/ms997507(v=msdn.10)?redirectedfrom=MSDN https://www.codeproject.com/Articles/1822/Per-Pixel-Alpha-Blend-in-C  http://suyamasoft.blue.coocan....

https://github.com/FMXExpress/swig-delphi https://blog.mbedded.ninja/programming/languages/python/python-swig-bindings-from-cplusplus/ https://code.google.com/archive/p/swig-gsoc/wikis/ProjectIdeas.wiki https://en.delphipraxis.net/topic/940-delphi-compiler-need-to-be-opensourced/?page=4 https://swig-devel.narkive.com/qhi42Zwz/delphi-module https://www.swig.org/ https://www.swig.org/Doc1.3/Extending.html https://stackoverflow.com/questions/38884979/parsing-a-header-file-using-swig https://stackoverflow.com/questions/10373935/pascal-to-c-converter https://sites.google.com/a/chromium.org/dev/blink/webidl https://en.wikipedia.org/wiki/Comparison_of_parser_generators https://en.wikipedia.org/wiki/Source-to-source_compiler https://en.wikipedia.org/wiki/Language_binding https://wiki.freepascal.org/C_to_Pascal https://wiki.lazarus.freepascal.org/User:Roozbeh https://discourse.panda3d.org/t/help-with-swig/570     Developer Tools Code Code Convertors https://torry.net/pages.php?id=...

 Rectangles, Regions, and Clipping rectangular region CreateRoundRectRgn   https://miffyzzang.tistory.com/378 CreateWindow("button","",WS_CHILD | WS_VISIBLE | BS_PUSHBUTTON | BS_BITMAP | BS_OWNERDRAW,   100,100,70,30,hWnd,(HMENU)IDC_BUTTON, hInst,NULL); Creating Owner-Drawn Controls - Windows Programming BS_OWNERDRAW   SetButtonStyle SetWindowRgn https://stackoverflow.com/questions/18745447/how-can-i-change-the-background-color-of-a-button-winapi-c https://www.pablosoftwaresolutions.com/html/cimagebutton.html #pragma comment( \     linker, \     "/manifestdependency:\"type='win32' \     name='Microsoft.Windows.Common-Controls' \     version='6.0.0.0' \     processorArchitecture='*' \     publicKeyToken='6595b64144ccf1df' \     language='*'\"") https://www.pablosoftwaresolutions.com/html/ccolorbutton.html https://stackoverflow.com/questions/17678261/how-t...

 https://github.com/pauloalvis/Delphi-PraButtonStyle

 https://rmklever.com/?tag=rkglassbutton Klever on Delphi My take at Delphi, tips and tricks and how tos Skip to content     HomeAbout Contact Downloads Tag Archives: rkGlassButton     Glassbutton updated to v2.4 3 Comments     This is a long forgotten update to my rkGlassButton component. Some bugs have been corrected and it now work more as expected. The first ting first. The autosize property is working like it should. Secondly the down property also work when duostyle is active. Last but not forgotten OnClick now work as expected. Please report any bugs you find to me. Hope this helps a little Download rkGlassButton v2.4 This entry was posted in Component, GUI and tagged Component, GUI, rkGlassButton on August 19, 2014. Klever on Delphi My take at Delphi, tips and tricks and how tos Skip to content     HomeAbout Contact Downloads A smarter button 8 Comments     There is a lot of buttons out there I know ...

  unit ColorButton;   { Article:   TColorButton - button with Color properties   http://delphi.about.com/library/weekly/aa061104a.htm   Full source code of the TColorButton Delphi component, an extension to the standard TButton control, with font color, background color and mouse over color properties.   }   interface   uses Windows, Messages, SysUtils, Classes, Graphics, Controls, StdCtrls, Buttons, ExtCtrls;   type TColorButton = class ( TButton ) private FBackBeforeHoverColor: TColor; private FCanvas: TCanvas; IsFocused: Boolean ; FBackColor: TColor; FForeColor: TColor; FHoverColor: TColor; procedure SetBackColor ( const Value: TColor ) ; procedure SetForeColor ( const Value: TColor ) ; procedure SetHoverColor ( const Value: TColor ) ;   property BackBeforeHoverColor : TColor read FBackBeforeHoverColor write FBackBeforeHoverColor; protected procedure CreateP...

 https://delphisources.ru/pages/faq/base/change_button_color.html Изменить цвет TButton {   You cannot change the color of a standard TButton,   since the windows button control always paints itself with the   button color defined in the control panel.   But you can derive derive a new component from TButton and handle   the and drawing behaviour there. } unit ColorButton; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls, Buttons, ExtCtrls; type   TDrawButtonEvent = procedure(Control: TWinControl;     Rect: TRect; State: TOwnerDrawState) of object;   TColorButton = class(TButton)   private     FCanvas: TCanvas;     IsFocused: Boolean;     FOnDrawButton: TDrawButtonEvent;   protected     procedure CreateParams(var Params: TCreateParams); override;     procedure SetButtonStyle(ADefault: Bo...

  Buttons and Similar Controls https://docwiki.embarcadero.com/RADStudio/Sydney/en/Buttons_and_Similar_Controls https://blogs.embarcadero.com/creating-a-custom-button-style-with-rad-studio-10-seattle/ https://docs.microsoft.com/en-us/windows/win32/controls/button-styles https://stackoverflow.com/questions/23082687/how-to-change-the-color-of-tbutton BS_OWNERDRAW SetWindowLong WM_DRAWITEM BS_OWNERDRAW to expose working color properties: TColorButton TColorButton = class(TButton) private ... procedure DrawItem(const DrawItemStruct: TDrawItemStruct); ... with Params do Style := Style or BS_OWNERDRAW; https://stackoverflow.com/questions/55731281/delphi-button-transitions-using-vcl https://stackoverflow.com/questions/9758016/how-do-i-custom-draw-of-tedit-control-text https://lazarus-ccr.sourceforge.io/docs/lcl/dialogs/tcolorbutton.html https://community.embarcadero.com/es/blogs/entry/creating-a-custom-button-style-with-rad-studio-10-seattle https://torry.net/quicksearchd.php?String=butto...

 https://www.swissdelphicenter.ch/en/showcode.php?id=921  www.teamb.com  Autor: P. Below Homepage: http://www.teamb.com [ Print tip ]          Tip Rating (38):            procedure MakeRounded(Control: TWinControl); var   R: TRect;   Rgn: HRGN; begin   with Control do   begin     R := ClientRect;     rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 20, 20);     Perform(EM_GETRECT, 0, lParam(@r));     InflateRect(r, - 5, - 5);     Perform(EM_SETRECTNP, 0, lParam(@r));     SetWindowRgn(Handle, rgn, True);     Invalidate;   end; end; procedure TForm1.Button1Click(Sender: TObject); begin   // TMemo:   Memo1.BorderStyle := bsNone;   MakeRounded(Memo1);   // TEdit:   Edit2.BorderStyle := bsNone;   MakeRounded(Edit2);   // TPanel:   Make...

 https://zarko-gajic.iz.hr/receive-windows-messages-in-your-custom-delphi-class-nonwindowed-control-object/

 https://github.com/salvadordf/CEF4Delphi https://github.com/salvadordf/WebView4Delphi  https://landof.dev/awesome/pascal/ https://github.com/Fr0sT-Brutal/awesome-pascal

https://blogs.embarcadero.com/using-delphis-expressions-engine/ https://github.com/torvalds/linux/blob/master/scripts/kconfig/expr.c  https://beltoforion.de/en/muparser/ C++ Mathematical Expression Library (ExprTk) - By Arash C library for parsing and evaluating simple expressions.  evaluating  expressions  https://stackoverflow.com/questions/1326258/mathematical-expression-parser-in-delphi  https://github.com/Crownie88/Delphi-mathematic-expression-parser/blob/master/MathExpParser.pas

 https://codeoncode.blogspot.com/2016/12/create-job-object-and-terminate-child.html Create a Job object And terminate Child Process JOB_OBJECT_LIMIT_KILL_ON_JOB_CLOSE flag How to gracefully handle when main.exe terminated, child.exe terminated also? You need to use jobs. Main executable should create a job object, then you'll need to set JOB_OBJECT_LIMIT_KILL_ON_JOB_CLOSE flag to your job object.   unit JobsApi; interface uses   Windows; type   TJobObjectInfoClass   =   Cardinal;   PJobObjectAssociateCompletionPort   =   ^TJobObjectAssociateCompletionPort;   TJobObjectAssociateCompletionPort   =   Record       CompletionKey     :   Pointer;       CompletionPort   :   THandle;   End;   {$EXTERNALSYM JOB_OBJECT_LIMIT_DIE_ON_UNHANDLED_EXCEPTION}   JOB_OBJECT_LIMIT_BREAKAWAY_OK = $00000800...

 OpenProcessToken GetCurrentProcessID   TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY  CreateProcessAsUser SystemHandleInformation = 16; ProcessBasicInformation = 0; STATUS_SUCCESS = cardinal($00000000); SE_DEBUG_PRIVILEGE =20; STATUS_ACCESS_DENIED = cardinal($C0000022); STATUS_INFO_LENGTH_MISMATCH = cardinal($C0000004); SEVERITY_ERROR = cardinal($C0000000); TH32CS_SNAPPROCESS = $00000002;   JOB_OBJECT_ALL_ACCESS = $1f001f; printf("SeCreateSymbolicLinkPrivilege = %ld, %ld\n", seCreateSymbolicLinkPrivilege.HighPart, seCreateSymbolicLinkPrivilege.LowPart);       if (!GetTokenInformation(hProcess, TokenPrivileges, NULL, 0, &length))       {         if (GetLastError() == ERROR_INSUFFICIENT_BUFFER)         {           TOKEN_PRIVILEGES* privileges = (TOKEN_PRIVILEGES*)malloc(length);     ...

 https://docs.microsoft.com/zh-tw/windows/win32/shutdown/displaying-the-shutdown-dialog-box

 https://hackaday.io/project/21933-prism-laser-scanner https://hackaday.com/2017/06/15/laser-pcbs-with-ldgraphy/ https://pcbwriter.github.io/ https://habr.com/en/post/438618/ https://github.com/hzeller/ldgraphy https://hackaday.com/2016/09/18/vacuum-exposure-unit-gives-better-pcb-etching-results/ 6thD RGB LD 13000, 0.9mrad – Low divergence RGB LASER https://6thd.eu/produkt/scannermax-compact-506/ Sharp Laser Printer Motors Sharp Polygon Motor https://www.copyparts.eu/ax060396-ricoh-polygon-motor/p4242 MP C2000 Color Laser Multifunction Printer | Ricoh USA  Replacing the Laser Polygon Mirror Motor Assembly RICOH AFICIO 1060 1075 2060 2075 MP7500 MP8000 https://www.laserworld.com/en/newslist/106-laserworld-news-en/1864-pangolin-scannermax-available.html  Repalcement DC Polygon Mirror Motor Assy RICOH AFICIO MP6001 MP7001 MP8001 MP9001 https://electronics.stackexchange.com/questions/195943/how-does-a-laser-printer-control-the-laser-to-produce-such-high-resolutions https://ru...

Language - 演算法筆記 https://web.ntnu.edu.tw/~algo/ https://web.ntnu.edu.tw/~algo/Language.html https://sourcemaking.com/design_patterns/interpreter/delphi https://docs.python.org/zh-tw/3.7/library/language.html https://docs.python.org/3.7/library/parser.html Python 语言服务 Python 提供了许多模块来帮助使用 Python 语言。 这些模块支持标记化、解析、语法分析、字节码反汇编以及各种其他工具。  JavaCC Interpreter (AST to Symbol Table)  https://ruslanspivak.com/lsbasi-part1/ AST interpreter Backus–Naur Form syntax tree Introduction to AST manipulation in ROSE Abstract Syntax Trees https://ix.cs.uoregon.edu/~norris/pat/index.cgi?n=Main.ROSEIntro Presentation on theme: "Programming Languages 2nd edition Tucker and Noonan"— Presentation transcript: https://slideplayer.com/slide/5039873/ https://staff.csie.ncu.edu.tw/chia/Course/Compiler/lexparse2.html      Catalog of Compiler Construction Tools Lexer and Parser Generators Compiler Construction Kits https://www.sigmdel.ca/michel/program/delphi/parser/parser1_en.html Part 1 o...

 Balancing Control of Two-Wheel Bicycle Problems  https://www.hindawi.com/journals/mpe/2020/6724382/  https://en.wikipedia.org/wiki/Control_moment_gyroscope https://en.wikipedia.org/wiki/Gyroscope  https://en.wikipedia.org/wiki/Center_of_gravity_(disambiguation) https://en.wikipedia.org/wiki/Ship_stability

 inertial 慣性 Measurement 量測 accelerometer 加速度計 gyroscope 陀螺儀 magnetometer 磁力計 magnetic field detection 磁場檢測 gauss magnetic 高斯磁 linear acceleration 線性加速度 Ultra-compact 超微小 high-performance 高效能 e-compass 電子羅盤 指南針 Capacitive sensing 電容式感應 Accelerometers 加速度計   Board Mount Motion 板載運動 Position Sensors 位置傳感器   Distance Sensors 距離傳感器 Gyroscopes 陀螺儀 IMUs Inertial Measurement Units 慣性測量單元 Inclinometers 傾角儀 Industrial Motion 工業運動 Position Sensors 位置傳感器 Speed Sensors 速度傳感器 Tilt Switches 傾斜開關 Vibration Sensors 振動傳感器 Capacitance sensors detect 電容傳感器檢測  Audio Sensor 音頻傳感器  Biometric Sensors 生物識別傳感器  Capacitive Touch Sensors 電容式觸摸傳感器  Current Sensors  電流傳感器    Encoders  編碼器    Environmental Sensors  環境傳感器    Flow Sensors  流量傳感器  Force Sensors & Load Cells 力傳感器和稱重傳感器  Linear Displacement Sensors 線性位移傳感器  Liquid Level Sensors 液位傳感器    Magnetic Sensors 磁傳感器  Motion & Position Sensor...

 https://trishhopkinson.com/2014/12/03/need-a-word-association-generator-these-are-free-and-better-than-your-average-thesaurus/  https://visuwords.com/ https://wordassociations.net/en  https://graphwords.com/ https://www.leydesdorff.net/words/ https://link.springer.com/article/10.3758/s13428-019-01208-2 https://www.isko.org/cyclo/thesaurus https://eadh.org/projects/historical-thesaurus-english https://www.thesaurus.com/browse/association     small smaller strong stronger Comparative Superlative Adjectives https://www.perfect-english-grammar.com/adjectives-comparative-and-superlative.html https://www.charlesdowdy.me/%E6%AF%94%E8%BC%83%E7%B4%9A%E6%9C%80%E9%AB%98%E7%B4%9A%E5%96%AE%E5%AD%97%E8%A1%A8/ synonyms Opposite adjective    https://englishgrammarhere.com/adjectives/comparative-and-superlative-adjectives-100-examples-and-exercises/ Comparative and Superlative Adjectives color type Color Name List thesaurus  https://graf1x.com/list-of-colors-with...

 https://people.cs.nctu.edu.tw/~tsaiwn/sisc/runtime_error_200_div_by_0/www.merlyn.demon.co.uk/del-bits.htm http://www.delphibasics.co.uk/RTL.asp?Name=xor  http://www.delphibasics.co.uk/RTL.asp?Name=shl https://www.interviewcake.com/concept/java/bit-shift https://onlinetoolz.net/bitshift Logical Arithmetic  Circular Rotate through carry shift https://www.geeksforgeeks.org/rotate-bits-of-an-integer/ https://www.freepascal.org/docs-html/rtl/system/roldword.html https://www.freepascal.org/docs-html/rtl/system/rolbyte.html https://docwiki.embarcadero.com/RADStudio/Sydney/en/Expressions_(Delphi) https://docwiki.embarcadero.com/RADStudio/Sydney/en/Bitwise_Operators   https://docwiki.embarcadero.com/Libraries/Sydney/en/System.Classes.TBits.Bits https://docwiki.embarcadero.com/Libraries/Sydney/en/System.Classes.TBits https://github.com/StarWong/MyLibary/blob/316624818c46b954206d9cbef4799e6e5250aa60/HashLib4Pascal/HashLib/src/Utils/HlpBits.pas class function TBits.RotateLeft8(...

 APT10035LLL MOSFET-based high voltage short pulse https://aip.scitation.org/doi/pdf/10.1063/1.5021211   MOSFET Gate Driver Circuit Design for High Repetitive (200kHz) High Voltage (10kV) Solid-State Pulsed-Power Modulator

 艸 艹  丱 卝 ㄍㄨㄞ 卝部 艸 草 ㄘㄠˇ        丱     ㄏㄨㄥˋ       丱     ㄍㄨㄢˋ   苟、敬、護、獲、雚、觀、夢、萬、舊   https://www.ptt.cc/bbs/Wrong_spell/M.1222961505.A.6EC.html

 https://www.upwork.com/hire/bootstrap-designers/eg/ismailia/  https://www.templatesthemes.net/tags/dashboard/ https://www.upwork.com/hire/javascript-developers/eg/ismailia/  JavaScript VUE.js EXTJS Angular React MVC MVP MVVM Design Pattern  Architecture JavaScript Framework JavaScript Framework  Localstorage SessionStorage Cookies WebSQL IndexedDb  EXTJS  React Spring Mvc rich web application frameworks  https://en.wikipedia.org/wiki/List_of_rich_web_application_frameworks https://en.wikipedia.org/wiki/Mobile_development_framework javascript CanvasKit Skia  WebAssembly Angular vs Knockout.js vs Vue.js vs Backbone.js: Which JavaScript Framework Suits

https://en.wikipedia.org/wiki/List_of_LM-series_integrated_circuits https://www.geeksforgeeks.org/analog-to-analog-conversion-modulation/  https://www.neophotonics.com/what-is-phase-modulation/ https://www.monolithicpower.com/en/power-factor-correction

  identify max switching frequency of a MOSFET switching frequency Eon Freq wheeling diode Power MOSFET switching behavior https://www.analog.com/ru/app-notes/an-140.html High Speed 650V IGBTs for DC-DC Conversion up to 200 kHz  200Khz switching frequency MOSFET wheeling diode 650v Maximizing the Performance of GaN with Ideal Diode Mode https://www.ti.com › lit › snoa932 PDF Dead Time Loss Versus Dead Time Settings With 200kHz Switching Frequency. ... between TI GaN with ideal diode mode, a 650V SiC MOSFET, discrete e-mode. application. A 1200V, 160mohm SiC MOSFET from Cree Inc ... https://www.richardsonrfpd.com › docs › rfpd › C... PDF limits the switching frequency at or below 200 kHz. ... Body diode recovery time trr. Body diode charge Qrr. 1200V. 650V. 650V. https://electronics.stackexchange.com/questions/291342/freewheeling-diode-needed

 Dual Operational Amplifiers LM358  MOSFET 2N7000  N-Channel 60-V (D-S) MOSFET - Vishay Siliconix N-Channel Enhancement-Mode Vertical DMOS FET, Microchip Technology. FDS4935A - MOSFET – Dual, P-Channel, PowerTrench 30 V

 https://github.com/decfpc/DelphiEncryptionCompendium/blob/master/DECCipher.pas https://en.wikipedia.org/wiki/Caesar_cipher

 TDataSetProvider  TClientdataset  TFDMemTable  TBlobField chm file data Blob HTML Images  Binary Fields  MIME types  IANA media types  LZX LZ77  compression algorithm DataSetProvider clientdataset LOCAL DATABASE tables

 https://ftdichip.com/software-examples/code-examples/delphi-examples/    

 https://p0w3rsh3ll.wordpress.com/2013/06/07/about-keyboard-layouts/  https://social.technet.microsoft.com/Forums/en-US/2a46ae38-2202-4286-9b46-35bc6e60e861/what-command-can-be-run-from-the-cmd-to-inquire-about-the-language-layout-that-is-used-right-now?forum=w7itproui   For the current input language you can try using reg query "HKCU\Keyboard Layout\Preload" /v 1 The return value includes an eight digit hex value. The first four digits indicate either default layout for the language (all zeros) or a variation (non-zero). The last four digits are the locale id - see: http://msdn.microsoft.com/en-us/goglobal/bb964664.aspx From this table, you can see in the example above my input language is English - Australia. For the keyboard layout you could try WMIC Path Win32_Keyboard Get Layout 0409 is an English - US keyboard. For a few other ideas/methods try reading http://p0w3rsh3ll.wordpress.com/2013/06/07/about-keyboard-layouts/  About keyboard layouts Posted on June 7, 2...

 IEnumTfLanguageProfiles = interface ['{3D61BF11-AC5F-42C8-A4CB-931BCC28C744}'] function Next(ulCount: Cardinal; const pProfile: PF_LANGUAGEPROFILE; out pcFetch: Cardinal): HRESULT; stdcall; MSDN   HRESULT Next(    ULONG ulCount<!---->,   TF_LANGUAGEPROFILE* pProfile<!---->,   ULONG* pcFetch<!----> ); Parameters ulCount     [in] Specifies the number of elements to obtain. pProfile     [out] Pointer to an array of TF_LANGUAGEPROFILE structures that receives the requested data. This array must be at least ulCount elements in size. pcFetch     [out] Pointer to a ULONG value that receives the number of elements obtained. This value can be less than the number of items requested. This parameter can be NULL.       Next(int count, [Out, MarshalAs(UnmanagedType.LPArray, SizeParamIndex = 2)]     TF_LANGUAGEPROFILE[] profiles, out int fetched);       ...

 GetSystemMetrics WM_IME_CONTROL https://docs.microsoft.com/zh-TW/windows/win32/intl/nls-terminology  code  ImmGetCandidateList https://docs.microsoft.com/zh-tw/windows/win32/intl/input-method-manager https://docs.microsoft.com/zh-tw/windows/win32/intl/input-method-manager-messages https://mugichoko.hatenablog.com/entry/2018/10/27/003856 https://dragon-john.blogspot.com/2013/06/c-win7.html

 https://youtu.be/FW6Vx2g9OCI

 delphi message queue registing Window procedure AllocateHWnd RegisterWindowMessage DeallocateHWnd https://zarko-gajic.iz.hr/receive-windows-messages-in-your-custom-delphi-class-nonwindowed-control-object/   Window procedure  https://stackoverflow.com/questions/36079268/bringing-tcallbackthunk-to-64-bit-via-anonymous-function http://computer-programming-forum.com/31-pascal/a8757a5d056efcad.htm https://www.programmersought.net/article/334918782.html https://edn.embarcadero.com/article/10323  TWndMethod  TWinControl.MainWndProc  TWinControl.WndProc  TControl.WndProc  TObject.Dispatch  TWinControl.DefaultHandler  TControl.Perform  TWinControl.Broadcast  TWinControl.WMPaint  TWinControl  https://blog.actorsfit.com/a?ID=00200-873e72f4-0375-4905-a5ba-9f1d7cdb85b4 TranslateMessage DispatchMessage PostMessage GetMessage PeekMessage https://stackoverflow.com/questions/50041183/properly-overriding-wndproc https://docwiki.embarc...

 https://github.com/Purik/RxDelphi

 https://stackoverflow.com/questions/48670592/invoke-jni-onload-from-delphi  https://developer.android.com/training/articles/perf-jni https://community.embarcadero.com/article/technical-articles/1040-using-the-android-jni-bridge-to-open-a-pdf  Using the Android JNI bridge to open a PDF Delphi   ZeroPlayer Library  Android dynamic library  https://docwiki.embarcadero.com/Libraries/Sydney/en/System.IOUtils.TPath.GetLibraryPath  uses    ..., Embarcadero.Jni const   LIBNAME = 'libtest.so'; function try_load_dll: THandle; var   libPath: string;   OnLoadFunc: TJNI_OnLoad;   hlib: THandle; begin   Result := 0;   libPath := TPath.Combine(TPath.GetLibraryPath, libname);   hlib := LoadLibrary(PChar(libPath));   if hlib = 0 then Exit;   @OnLoadFunc := GetProcAddress(hlib, 'JNI_OnLoad');   if not Assigned(OnLoadFunc) then   begin     FreeLibrary(hlib);     Exit; ...

 Process memory usage GetProcessWorkingSetSize() SetProcessWorkingSetSize()    h,mMin,mMax:cardinal; h:=OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, false, PID); GetProcessWorkingSetSize(h,mMin,mMax); CloseHandle(h); h,newMin,newMax:cardinal; h:=OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_SET_QUOTA, false, PID); SetProcessWorkingSetSize(h, newMin, newMax); https://w-shadow.com/blog/2006/09/04/process-memory-usage/  GetSystemTimes to get the total system timing. GetProcessTimes to get timing for a specific process. GetCurrentProcess to get current process handle. PerfCounter Performance Counter https://docs.microsoft.com/zh-tw/troubleshoot/windows-server/performance/manually-rebuild-performance-counters https://www.codeproject.com/articles/9113/get-cpu-usage-with-getsystemtimes https://docs.microsoft.com/en-us/windows/win32/perfctrs/about-performance-counters https://www.codeproject.com/Articles/10538/Getting-CPU-Usage-in-a-Multiprocessor-Machine htt...

 Using TTask from the Parallel Programming Library https://docwiki.embarcadero.com › Sydney   TTask creates and manages interaction with instances of ITask. ITask is an interface that provides a range of methods and properties to Start, Wait, Cancel and ...       System.Threading.TTask - RAD Studio API Documentation     https://docwiki.embarcadero.com › Syste...         TTask is a class managing and representing procedures that can be executed in parallel threads. An instance of TTask represents a single task or unit of ... delphi Parallel 之TTask 初試- 程式人生 https://www.itread01.com › content   — Clear; SetLength(TaskArray, C); for I := 0 to C - 1 do begin TaskArray[I] := TTask.Create(procedure var Id: string; begin Id := TThread. Introducing the TTask class | Delphi GUI Programming with ... https://subscription.packtpub.com › book   TTask.Run( procedure begin // Do something end ); Copy. We should recall the T...