Можно ли запустить 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) переходит в самую новую папку

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

Подскажите как проверить, что указанная папка пуста? Есть папка с:\тест\1, в папке 1 будут файлы, как проверить есть ли файлы в папке 1 если есть то выполнить условия батника, если нет файлов то не выполнять условия?

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

Стандартной команды задержки, типа sleep, в языке сценариев Windows не предусмотрено. Есть множество различных извращенных способов получить хоть какую-то задержку, например, через ping. Как сделать более точную задержку?

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

slava5170

Разработать программу подсчета числа символов указанного типа в любой заданной строке символов. Строка поиска и произвольный символ требуемого типа должны передаваться программе через два аргумента КОМАНДНОЙ СТРОКИ ЕЕ ВЫЗОВА. При этом разнообразие искомых символов считается ограниченным буквами цифрами и знаками

А теперь сам вопрос по программе: Как задать в командной строке какой символ надо считать ?

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