Q&A

  • 비베로 된 소스를 델파이로 변경할수 있나요?
제어판에서 국가별옵션에 날짜탭에서 날짜 형식을 변경하는 비베소스입니다
델파이로 바꿀수 잇나요?
소스는 아래와 같습니다
Private Declare Function SetLocaleInfo Lib "kernel32" Alias _
"SetLocaleInfoA" ( _
   ByVal Locale As Long, _
   ByVal LCType As Long, _
   ByVal lpLCData As String) As Long

Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
Private Const LOCALE_SSHORTDATE As Long = &H1F

Private Sub Command1_Click()

    Dim LCID As Long
    Dim NewFormat As String

    LCID = GetSystemDefaultLCID()
    NewFormat = "yyyy-MM-dd"
    Call SetLocaleInfo(LCID, LOCALE_SSHORTDATE, NewFormat)
End Sub

부탁드리겠습니다
1  COMMENTS
  • Profile
    최용일 2003.02.24 22:07
    안녕하세요. 최용일입니다.

    그냥 똑같이 변경하시면 될거 같네요...

    var
        DefLCID: LCID;
        NewFormat: string;
    begin
        DefLCID := GetSystemDefaultLCID;
        NewFormat := 'yyyy-MM-dd';
        SetLocaleInfo(DefaultLCID, LOCALE_SSHORTDATE, NewFormat);
    end;

    ^^ 항상 즐코하세요...