Отправляет email-рассылки с помощью сервиса Sendsay

Программирование. Форум !!!

За 2005-08-02

Re: Смена системной даты

On Tue, 02 Aug 2005 11:22:27 +0400, "Денис "Селезнев <ringlead***@b*****.ru>
wrote:
> Здравствуйте!
> Подскажите пожалуйста, как программно можно сменить системную дату?
void SetDate(WORD day, WORD month, WORD year)
{
SYSTEMTIME sysTime;
GetSystemTime(&sysTime);

sysTime.wDay = day ;
sysTime.wMonth = month;
sysTime.wYear = year;

SetSystemTime(&sysTime);
}
Номер выпуска : 4818
Возраст листа : 681 (дней)
Количество подписчиков : 525
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/411912
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

   2005-08-02 21:44:10 (#411912)

PA55WORD

Как сделать чтобы при вводе текста (пароля) в TEdit он "прикрывался"
не звёздочками ( *** ) а кружочками как в WinXP при подключении к
интернету?

P.S. Один раз сделал давно, а теперь не помню.

Delphi7

*******
{_-|-_}

Номер выпуска : 4817
Возраст листа : 681 (дней)
Количество подписчиков : 525
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/411869
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

   2005-08-02 19:58:56 (#411869)

Смена шрифтов

Hello ,
Среда разработки VC7
Проект Single Document
Просмотр на базе класса CHtmlEditView

Необходимо сменить CHARSET

Делаю следующим образом
CFont* font=new CFont;
font->CreateFont(44,0,0,0,FW_NORMAL,0,0,0,RUSSIAN_CHARSET,OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS,PROOF_QUALITY,VARIABLE_PITCH|FF_ROMAN,"Times
New Roman");
SetFont(font);
далее вывожу текст
SetDocumentHTML(str);
однако фонт остается прежним.
Что я тут делаю не так?

Владимир

Номер выпуска : 4816
Возраст листа : 681 (дней)
Количество подписчиков : 525
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/411853
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

   bvb 2005-08-02 19:34:12 (#411853)

Смена системной даты

Здравствуйте!

Подскажите пожалуйста, как программно можно сменить системную дату?
Не могу нигде ничего найти по этому поводу.
Функция SetSystemTime() почему-то не работает, точнее меняет только время, хотя
всё делаю "по науке".

procedure ChangeDateTime;
var vsys : _SYSTEMTIME;
vYear, vMonth, vDay, vHour, vMin, vSec, vMm : Word;
begin
DecodeDate( Trunc(JvDateEdit1.Date), vYear, vMonth, vDay );
DecodeTime( JvDateEdit1.Date, vHour, vMin, vSec, vMm );
vMm := 0;
vsys.wYear := vYear;
vsys.wMonth := vMonth;
vsys.wDay := vDay;
vsys.wHour := vHour;
vsys.wMinute := vMin;
vsys.wSecond := vSec;
vsys.wMilliseconds := vMm;
vsys.wDayOfWeek := DayOfWeek( Trunc(JvDateEdit1.Date));
SetSystemTime( vsys );
end;

Какие есть функции для смены системной даты?

С уважением,
Селезнёв Денис

Номер выпуска : 4815
Возраст листа : 681 (дней)
Количество подписчиков : 525
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/411652
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

   Денис Селезнев 2005-08-02 11:22:30 (#411652)