Delphi 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; Delphi/간단하게 간단하게 드라이브 목록 가져오기 uses .., System.Types, System.IOUtils; var DriveList: TStringDynArray; Drive: string; begin DriveList := TDirectory.GetLogicalDrives; for Drive in DriveList do Memo1.Lines.Add(Drive); end; 이전 1 ··· 24 25 26 27 28 29 30 ··· 66 다음