Для реализации некоторого параллельного программирования в 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

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

Сделать так, чтобы при регистрации можно было вводить только буквы AZ-az, А-Я, а-я и цифры

<input type=»text» pattern=»[A-Za-zА-Яа-я]» name=»login»> не работает

В HTML или PHP, как это сделать? Желательно в HTML 😉

if($login=="" || $password=="") << сюда что надо?
{
  die("Заполните все поля!");
}

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

Используя равноплечные рычажные весы, нужно взвесить любой груз с точностью до 1гр., при этом используя набор с минимально возможным количеством гирь. Гири можно класть на любую чашу весов.
Например, для взвешивания груза до 4гр. понадобится набор всего из 2 гирь номиналом 1гр. и 3гр.:
(груз 1гр) = (1гр), уравновесили две чаши весов
(груз 2гр) + (1гр) = (3гр), т.е. двумя гирями номиналом 1гр. и 3гр. взвесили груз весом в 2гр.
(груз 3гр) = (3гр)
(груз 4гр) = (3гр) + (1гр)
Можно записать всё проще: слева вес груза, справа используемые гири, при этом плюс перед числом означает, что гирю с данным номиналом кладем на правую чашу весов, минус — на левую чашу)
1 = + 1
2 = + 3 — 1
3 = + 3
4 = + 3 + 1
Утверждается, что для взвешивания груза весом до 40гр. достаточно иметь набор из 4 гирь,
номиналом 1гр., 3гр., 9гр. и 27гр.
40 = + 27 + 9 + 3 + 1
35 = + 27 + 9 — 1
26 = + 27 — 1
14 = + 27 — 9 — 3 — 1
Следуя той же логике минимального набора имеющихся гирь (как вы уже поняли, это набор гирь, где каждая следующая гиря в три раза тяжелее предыдущей), показать взвешивание груза весом 9200гр.

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

@ echo off
setlocal enabledelayedexpansion

pause
echo Звуковой сигнал №1
call :beep1

pause
echo Звуковой сигнал №2
call :beep2

exit /b

:: Звуковой сигнал через символ с кодом 7 (Alt + 07)
:beep1
setlocal
0<nul set /p =[BEL]
endlocal & exit /b

:: Звуковой сигнал через choice
:beep2
echo 0y | choice /c y /n>nul
exit /b

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

Управляющие последовательности ANSI — символы, встраиваемые в текст, для управления форматом, цветом и другими опциями вывода в текстовом терминале.

В Microsoft Windows поддержка управляющих последовательностей ANSI появилась начиная с Windows 10.

Для управления выводом текста в консоль используются специальные ESC-коды. Выглядят они так:

ESC[<параметры><буква-команда>

ESC[ — признак начала управляющей последовательности. ESC — непечатный символ с кодом 27 (U+001B). Набирается посредством Alt+27 или Alt+027, на экране выглядит как вопросик в квадрате или иначе, в зависимости от редактора.
<параметры> — цифры (иногда с ; ), указывают режим или количество.
<буква-команда> — финализирующий символ, указывающий какое именно действие.

Так как набирать непечатный символ ESC не очень удобно, да и скопировать текст с непечатными символами может быть проблематично (допустим, невозможно поделиться кодом на форуме), то можно программно получить префикс для CSI-кодов. Вот код для получения CSI-префикса:

:: Получаем префикс CSI = ESC + [
for /f "delims=" %%a in ('echo prompt $E[^| cmd /q /d /k') do set "CSI=%%a"

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

Хотел сделать такой вот код, но он выдал ошибку в процессе исполнения

    E.SetFocus;
    If F.ShowModal ...

Где E — TEdit на форме F

Вопрос: как сделать фокус на E при том что я запускаю форму через ShowModal?

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

Есть 100 документов вордовских, на каждом надо поставить нижний колонтитул с номером. На первом документе в колонтитуле будет 1, на втором 2 и так далее до последнего документа.

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