Время компьютера

[Sheva144]

Есть проблема. Нужно вывести на экран время компьютера в визуальной среде в Memo1.
Как запивать в Memo1 я знаю, а вот как получить время компьютера?
Заранее спасибо!

[Assemblerru]

AnsiString STaimSystem;
STaimSystem = DateToStr (Now());
Ну типа так

[Assemblerru]

А вот тебе в нагрузку....
Вpемя создания файла

// На  форме должны быть Lаbel1 и Button1, затем напишите следующий  код:
TDateTime FileTimeToDateTime(FILETIME *lpftime)
{
    FILETIME  localfiletime;
    SYSTEMTIME  systime;
    FileTimeToLocalFileTime(lpftime,&localfiletime);
    FileTimeToSystemTime(&localfiletime,&systime);
    return(TDateTime(systime.wYear,  systime.wMonth, systime.wDay)+
    TDateTime(systime.wHour,  systime.wMinute,
    systime.wSecond, systime.wMilliseconds));
    }
    //----------------------------------------------------------
    void  __fastcall TForm1::Button1Click(TObject *Sender)
    {
    FILETIME  ftCreationTime,ftLastAccessTime,ftLastWriteTime;
    HANDLE  hFile=(HANDLE)FileOpen("c:\\autoexec.bat",fmOpenRead);
    GetFileTime(hFile,&ftCreationTime,&ftLastAccessTime,&ftLastWriteTime);
    AnsiString  FileInfo="FileName: c:\\autoexec.bat";
    FileInfo+="\nCreation  Time:"+
    FormatDateTime("c",FileTimeToDateTime(&ftCreationTime));
    FileInfo+="\nLast  Access  Time:"+
    FormatDateTime("c",FileTimeToDateTime(&ftLastAccessTime));
    FileInfo+="\nLast  Write  Time:"+
    FormatDateTime("c",FileTimeToDateTime(&ftLastWriteTime));
    Label1->Caption=FileInfo;
    FileClose((int)  hFile);
}

________
Я В ШОКЕ! Неужели за год пребывания на форуме и написав почти 200 постов, Вы не заметили, что публикуемый исходный код нужно оформлять по правилам с помощью тегов [CODE]..[/СODE] ?!!

списываю это на запарку и морок...

Модератор.

[Ksardas13]

Мой простецкий вариант, сразу обрамлённый в функцию :

AnsiString tyme()
{
SYSTEMTIME systime;
GetLocalTime(&systime);//Ва, вот она твоя заветная функция!
AnsiString buf=AnsiString(systime.wSecond);//строчка для строчки для соблюдения феншуя(см.ниже)
if (buf.Length()==1) buf.Insert("0",0);//строчка для соблюдения феншуя
return AnsiString(systime.wHour)+":"+AnsiString(systime.wMinute)+":"+buf;//Возврат оформленного по феншую времени
// а вот так, вдруг пригодится, можно получить текущую дату:
//sprintf(str, "%02d.%02d.%d", systime.wDay, systime.wMonth, systime.wYear);
}

...
//Потом там где нужно просто пишешь.
Memo1->Lines->Add(tyme());
//И кричишь от восторга.
...

[RusGim]

Всё ОЧЕНЬ просто:
Функция Now() возвращает текущую дату и время в формате TDateTime.
Чтобы перевести функцию из TDateTime в AnsiString, удобный для чтения, используй функцию FormatDateTime(AnsiString Format, TDateTime DateTime),
где Format - формат отображения вашего времени, DateTime - время (Now()). Короче...

AnsiString NowTime = FormatDateTime("hh:mm:ss", Now());
Edit1->Text = NowTime;

Данный код возвратит значение Now() в формате чч:мм:сс.
Более подробно читай в справке по Borland Builder'у

[Ksardas13]

Функция Now() возвращает текущую дату и время в формате TDateTime.

Ммм, тоже не плохо. =)