Версия для печати
Нажмите сюда для просмотра этой темы в оригинальном формате |
Форум на Исходниках.RU > Pascal > Нужен автономный gettime() чтобы работал без windos |
Автор: Ivanhoe75 15.09.17, 12:13 |
Нужен аналог gettime чтобы работал без windos. В поддержке Паскалем windows api есть что-нибудь такое? в Pascal for Windows |
Автор: Федосеев Павел 16.09.17, 16:25 |
Borland Pascal for Windows предназначен для Windows 3.1 - т.е. создаёт 16-разрядные приложения. Поройтесь в заголовочных файлах с поиском по шаблону "time". А в более современных Windows есть GetSystemTime (в MSDN GetSystemTime) и GetLocalTime Пример на FPC <{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}> program test; uses Windows; var t: SYSTEMTIME; begin GetSystemTime(@t); writeln('The system time is: ', t.wHour, ':', t.wMinute); GetLocalTime(@t); writeln('The system time is: ', t.wHour, ':', t.wMinute); end. |