| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Системная дата и время [D5, D6, Win95/98]

omckma ©   (2002-05-15 10:41:00) 

Помогите!!! Как программно изменить ММ/ДД/ГГ на ДД/ММ/ГГ в виндах.

---

Ura   (2002-05-29 16:26:00) [1]

Сорри. Не то написал...

---

Ura   (2002-05-29 16:24:00) [2]

var NewTime: SYSTEMTIME;
TimeServer : TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
Error : integer;

DecodeTime(TimeServer, Hour, Min, Sec, MSec);
DecodeDate(TimeServer, Year, Month, Day);
NewTime.wYear := Year;
NewTime.wMonth := Month;
NewTime.wDay := Day;
NewTime.wHour := Hour;
NewTime.wMinute := Min;
NewTime.wSecond := 0;
NewTime.wMilliseconds := 0;

if ( SetLocalTime(NewTime) = FALSE) then
begin
//OK
end
else begin
Error;
end;

---

Zev   (2002-05-29 16:16:00) [3]

// установка в системе:
SetLocaleInfo( LOCALE_SYSTEM_DEFAULT , LOCALE_SSHORTDATE, PChar("dd.mm.yy") );

// установка в приложении
// в файле проекта

program P_Report;
uses
Forms, SysUtils, . . .
{$R *.RES}
begin
Application.Initialize;

DecimalSeparator := ".";
DateSeparator := ".";
SHortDateFormat := "dd.mm.yyyy" ;

Application.CreateForm(TF_Report, F_Report);
Application.CreateForm(TF_DM, F_DM);
Application.Run;
end

---

Наверх