Количество сотых долей секунды, прошедших с начала дня

Можно использовать, например, в качестве BenchMark-а времени выполнения некоторого кода для отладки.

@ echo off
setlocal enabledelayedexpansion

call :gettick
echo Tick Count: %errorlevel%

pause
exit /b 0

:: Количество сотых долей секунды, прошедших с начала дня
:gettick
setlocal
set t=%time: =0%
set /a tick=1%t:~9,2%-100+(1%t:~6,2%-100)*100+(1%t:~3,2%-100)*6000+(1%t:~0,2%-100)*360000
endlocal & exit /b %tick%

Функция gettick возвращает количество сотых долей секунды, прошедших с начала дня. Чтобы не появилось «восьмеричных» чисел (числа, начинающиеся с нуля, воспринимаются как восмеричные), я дописываю к каждой компоненте времени в начало 1, а затем вычитаю 100. Таким образом проблема решается без введение дополнительных поверок if.

тема на форуме

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

@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

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

@ 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

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

Создав 2-х строчный Temperature.bat

@ wmic /namespace:\\root\wmi PATH MSAcpi_ThermalZoneTemperature get CurrentTemperature
@ pause

Интересует: как автоматически переводить в градусы Цельсия из градусов Кельвина
С = (К/10)-273
встроив формулу в Temperature.bat

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

Можно ли запустить CMD скрипт с самой программы, например с компонента memo? Как если бы запустили его посредством запуска файла .cmd ???
Нужно чтобы весь скрипт считывался с компоненты.

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

В последних версиях Adobe Photoshop есть такой прикол, что при сохранении отредактированного фото, фотошоп сам добавляет к имени файла слово «копия» (для русской версии). Можно, конечно, при сохранении каждый раз вручную менять имя файла и соглашаться с диалогом перезаписи оригинального файла на отредактированный, но это лишние действия. Проще этот процесс автоматизировать.

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

Насчёт запуска какого нить файла понятно:
ShellExecute или WinExec

А как выполнять другие команды cmd с параметрами?
Например:

del /S/F/Q %USERPROFILE%\AppData\Local\Temp\*.*
Или
copy /y file1.txt file2.txt
или
MKDIR  Newfolder
или
XCOPY /E/G/H/Y 'D:\myfiles\*.*' 'j:\backup\myfiles\*.*'
или
ATTRIB -R-A-S-H C:\folder /D
Ну и т.д.

Если можно конкретные примеры.

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

Вот такой код позволяет читать данные из cfg-файла:

for /f "eol=# delims== tokens=1*" %%i in (%~dpn0.cfg) do (
    set %%i=%%j
)

записанные в таком формате:

# это коммент
mainpath=%ProgramFiles(x86)%\MyDir
mainexe=MyProg.exe

Но тут есть проблема.
Мы получаем переменные окружения со значениями:
mainpath=%ProgramFiles(x86)%\MyDir
mainexe=MyProg.exe
Т.е. как есть. Строка «%ProgramFiles(x86)%» не раскрывается в «C:\Program Files (x86)»
Соответственно if exist %mainpath%\%mainexe% set found=1 не сработает.

Что можно изменить в этом коде, чтобы %-переменные раскрывались?
p.s. Мне не нужно просто вывести на экран значение через cmd /c echo %mainpath%, мне надо заполучить эти значения в переменную окружения…

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

Необходимо выполнить чтение из буфера результата cmd, делаю следующее:

procedure TForm1.Button2Click(Sender: TObject);
var
  s:TStringList;
  i: integer;
begin
  s:=TStringList.Create;
  Clipboard.AsText:='';
  WinExec('cmd /c net user |clip',SW_SHOWNORMAL);
  S.Text:= Clipboard.AsText;
  for I := 0 to s.Count-1 do
    Memo1.Lines.Add(s[ i]);
  s.Free;
end;

В результате Memo пустое, но в буфере есть необходимая инфа, по Ctrl+V выводится. Что делаю не так?

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

Пожалуйста подскажите как написать батник,
который выполняет следующие действия:
1) сортирует папки по дате
2) переходит в самую новую папку

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