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