Пожалуй, это лучший вариант для преобразования регистров символов:
(читать всё…)

Утилита FINDSTR при помощи ключа /A позволяет задать цвета текста и фона для выводимых имён файлов, в которых обнаружено соответсвие строке поиска (после имени файла теми же цветами выводится двоеточие, а затем, уже общими цветами окна консоли, строка, содержащая соответствие). Причём, если строка, содержащая соответствие, в файле последняя и не завершается переводом строки, то перевод строки после неё будет отсутствовать и в выводе FINDSTR.

Это используется в двух следующих процедурах, предназначенных для вывода текста заданного цвета:

(читать всё…)

Есть куча *.cer файлов. Как программно узнать дату окончания сертификата?

(читать всё…)

Возможно ли создать полноценный форум на локалке по типу Open Server но таким образом чтобы для доступа к нему пользователей домен не выглядил 127.0.0.1 а имелся именно домен. Пробовал перенести с хостинга на локалку в виде зеркала на всякий случай не вышло. Похоже что влияют настройки версии пэхэпэ. Так и не разобрался. К тому же путём алиаса ведь можно как то и домен онион прикрутить.

(читать всё…)

Батник выводит температуру процессора в градусах Цельсия с точностью до двух знаков после десятичной точки:
(читать всё…)

Привет, приведите листинг примера создания динамического символьного массива (занесения к примеру элементы: Катя, Петя, Лена и вывод одного из них скажем в Memo1 )

(читать всё…)

Для реализации некоторого параллельного программирования в CMD можно использовать такую команду:

start /b имя.cmd

Параметр /b позволяет запустить скрипт имя.cmd в том же консольном окне, при этом основная программа продолжает выполнение, а имя.cmd работает совместно, разделяя с ней потоки ввода-вывода.

(читать всё…)

Мне нужно в ячейку StringGrid поместить дату и время изменения файла
Делаю это так:

function ReadDate(FN:String):String
var
W: WideString; // полное имя файла
Dat:TDateTime;
FHandle: Integer;
begin
 W:=FN;
 FHandle := FileOpen(w, 0);
 Dat:= FileDateToDateTime(FileGetDate(FHandle));
 Result:= FormatDateTime('yyyy.mm.dd.hh.nn.ss', Dat);
end;

Однако, полученное время отличается от видимого в свойствах файла (в проводнике)
Например:
получено 2008.08.26.19.42.02
в свойствах 26.08.2008 20:42
То есть, ровно на час (если файл был изменен за час до нового года, то на год)
Что интересно, если дату изменения вернуть назад функцией FileSetDate,
то дата в свойствах файла становится на час моложе (прибавляется час)
Сам вопрос:
Можно ли не особенно исхитряясь получить дату съемки полностью соответствующую таковой в свойствах файла.
Если нельзя, то как выяснить (программно) региональные настройки Windows и как их использовать для коррекции полученной даты (нужно их как-то преобразовать, а затем сложить или вычесть…)

(читать всё…)

Вложения

для решения.xlsx (24.9 Кб)

(читать всё…)

Вот вариант более «батниковский»:

@echo off
echo Playing Чижик-пыжик...
:loop

rem Play Music
call :beep 659 300
call :beep 587 300
call :beep 523 300
call :beep 587 300
call :beep 659 300
call :beep 659 300
call :beep 659 600
call :beep 587 300
call :beep 587 300
call :beep 587 600
call :beep 659 300
call :beep 784 300
call :beep 784 600
call :beep 659 300
call :beep 587 300
call :beep 523 300
call :beep 587 300
call :beep 659 300
call :beep 659 300
call :beep 659 300
call :beep 659 300
call :beep 587 300
call :beep 587 300
call :beep 659 300
call :beep 587 600
call :beep 523 900

timeout /t 1 /nobreak >nul
goto loop

:: Бипер
:: %1 - частота в Гц (от 37 до 32767)
:: %2 - продолжительность в мс (от 1)
:beep
powershell -c "[console]::beep(%1,%2)"
exit /b

(читать всё…)