Программирование на Delphi и не только Время создания файла | Программирование на Delphi и не только

Delphi FAQ >> Файлы и каталоги function FileCreationTime (const filename : string) : string; var   FileHandle : THandle;   LocalFileTime : TFileTime;   DosFileTime : DWORD;   LastAccessedTime : TDateTime;   FindData : TWin32FindData; begin   Result := »;   FileHandle := FindFirstFile(PChar(filename), FindData);   if FileHandle INVALID_HANDLE_VALUE then   begin     Windows.FindClose(FileHandle);     …

Программирование на Delphi и не только Как затенить кнопку «Закрыть» в заголовке любого окна? | Программирование на Delphi и не только

Delphi FAQ >> Окна и процессы procedure HideClose(WinHandle:HWND); var   hMenuHandle:HMENU; begin   hMenuHandle := GetSystemMenu(WinHandle, false);   if (hMenuHandle  0) then     DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND); end; В настоящее время очистка сточных вод хоть и остается достаточно дорогим удовольствием, но зато экономит много времени.

Программирование на Delphi и не только » Архив блога Пополнение Delphi FAQ | Программирование на Delphi и не только

Наш Delphi FAQ постоянно пополняется новыми готовыми функциями, каждая из которых отлично решает свою маленькую задачу. Вот список новинок: Заглядывайте к нам в Delphi FAQ — вы всегда найдете то, что вам нужно. При подготовке кода к публикации очень удобно форматировать его с помощью многофункционального текстового редактора Notepad++, в котором есть и подсветка синтаксиса и …

Программирование на Delphi и не только Удаление каталога со всем содержимым | Программирование на Delphi и не только

Delphi FAQ >> Файлы и каталоги function DeleteDir(Dir: String): Boolean; var   Found : Integer;   SearchRec: TSearchRec; begin   result := false;   ChDir(Dir);   if (IOResult0) then   begin     ShowMessage(‘Не могу войти в каталог:’ + Dir);     exit;   end;   Found := FindFirst(‘*.*’, faAnyFile, SearchRec);   while (Found = 0) do   …

Программирование на Delphi и не только Время последнего обращения к файлу | Программирование на Delphi и не только

Delphi FAQ >> Файлы и каталоги Готовая функция на языке программирования Delphi, которая возвращает время последнего обращения к заданному файлу: function FileLastAccess (const filename : string) : string; var   FileHandle : THandle;   LocalFileTime : TFileTime;   DosFileTime : DWORD;   LastAccessedTime : TDateTime;   FindData : TWin32FindData; begin   Result := »;   FileHandle := FindFirstFile(PChar(filename), FindData);   if FileHandle  INVALID_HANDLE_VALUE then …