Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.13;
Скачать: CL | DM;

Вниз

Где в Windows хранится обозначение года (г.) на текущем языке.   Найти похожие ветки 

 
DVM ©   (2003-09-04 18:11) [0]

Собственно вопрос. У меня выходит получить только дату вида:

четверг, 4 сентября 2003 (GetSystemTime + GetDateFormat)

Как получить дату с символом "г." Если можно только Win32 api.

Просто приписать г. я не могу - дата должна отображаться в соответствии с региональными настройками пользователя.


 
ggsoft ©   (2003-09-04 18:38) [1]

Пожалуй так... (на WinXP)

procedure TSomeForm.FormDblClick(Sender: TObject);
var
stCurr: TSystemTime;
strFormat: String;
regKey: TRegistry;
rgFormat: array[0..31] of Char;
begin
regKey := TRegistry.Create(KEY_QUERY_VALUE);
try
if (regKey.OpenKey("Control panel\International", False)) then begin
try strFormat := regKey.ReadString("sLongDate");
finally regKey.CloseKey; end;
end;
GetSystemTime(stCurr);
GetDateFormat(LOCALE_USER_DEFAULT, 0, @stCurr, PChar(strFormat),
rgFormat, sizeof(rgFormat));
ShowMessage(rgFormat);
finally
regKey.Free;
end;
end;


 
Jeer ©   (2003-09-04 18:43) [2]

GetLocaleInfo(поищи здесь)


 
DVM ©   (2003-09-04 18:49) [3]

Это только полдела. В win98 такого ключа нет в реестре.


 
DVM ©   (2003-09-04 18:50) [4]


> Jeer © (04.09.03 18:43) [2]

точно!


 
ggsoft ©   (2003-09-04 18:52) [5]


> DVM © (04.09.03 18:49) [3]
> Это только полдела.



> ggsoft © (04.09.03 18:38) [1]
> Пожалуй так... (на WinXP)



Страницы: 1 вся ветка

Текущий архив: 2003.11.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.023 c
14-41876
Dima_dvp
2003-10-23 23:03
2003.11.13
Application - Зачем? и как избавиться


3-40929
DelphiNew
2003-10-25 14:37
2003.11.13
Type mismatch in expression


1-41234
qwerty2
2003-11-03 22:53
2003.11.13
Структура как возвращаемое функцией значение


1-41658
Mister
2003-10-25 15:52
2003.11.13
Помогите пожайлуста!


1-41410
DN
2003-10-29 16:53
2003.11.13
Работа с Install Shield