Delphi/간단하게 Delphi/간단하게 간단하게 구조체를 JSON으로 변환하기 uses .., System.JSON.Types, System.JSON.Serializers; with TJsonSerializer.Create do begin try //필요 시 설정 Formatting := TJsonFormatting.Indented; ShowMessage(Serialize(구조체)); finally Free; end; end; Delphi/간단하게 간단하게 윈도우버전 확인하기 var OSVer: OSVERSIONINFOEX; begin OSVer.dwOSVersionInfoSize := SizeOf(OSVERSIONINFOEX); GetVersionEx(OSVer); ShowMessage(IntToStr(OSVer.dwMajorVersion) + '.' + IntToStr(OSVer.dwMinorVersion)); end; 버전참조 : https://docs.microsoft.com/ko-kr/windows/win32/sysinfo/operating-system-version Delphi/간단하게 간단하게 FMX에서 폼을 마우스로 이동하기 마우스 다운 이벤트가 있는 폼 또는 컴포넌트에 아래 함수를 넣어줍니다. procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single); begin StartWindowDrag; end; 이전 1 2 3 4 5 6 7 8 ··· 13 다음