Как сделать калькулятор в Delphi?
Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Как Delphi реализует многоплатформенную разработку?
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Получение даты создания каталога
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Получение даты создания каталога
Функция определяет дату и время создания каталога и возвращает результат в формате TDateTime.
Cм. также: http://delphibase.endimus.com/?action=viewfunc&topic=fileattr&id=10497
Зависимости: Windows
Автор: Dimka Maslov, mainbox@endimus.com, ICQ:148442121, Санкт-Петербург
Copyright: Dimka Maslov
Дата: 4 февраля 2004 г.
***************************************************** }
function GetDirTime(const
Dir: string
): TDateTime;
var
H: Integer;
F: TFileTime;
S: TSystemTime;
begin
H := CreateFile(PChar(Dir), $0080, 0, nil
, OPEN_EXISTING,
FILE_FLAG_BACKUP_SEMANTICS, 0);
if
H <> -1 then
begin
GetFileTime(H, @F, nil
, nil
);
FileTimeToLocalFileTime(F, F);
FileTimeToSystemTime(F, S);
Result := SystemTimeToDateTime(S);
CloseHandle(H);
end
else
Result := -1;
end
;
Пример использования:
ShowMessage(DateTimeToStr(GetDirTime('c:Program Files')));