В параметрах файл не ожидается (по моей логике). Пути к файлам прописаны в самой программе. EXE файл будет содержать пути к файлам.. ЗЫ: я исхожу из того, что программа строго персональная, и тот, кто ей будет (теоретически) пользоваться изменит пути к своим проверенным файлам.
Да, про это я и написал. Вариантов реализации и логики может быть много. например после FileName := ParamStr(1) + '.jpg'; FilePath := TPath.Combine(Dir, FileName); проверяем, существует ли файл FilePath. Если существует, оставляем все как есть, если не существует - присваиваем FileName и FilePath то что нам надо. При такой логике, функционал программы немного расширится )))
За код спасибо. При запуске ChangeDesktopColor.exe 999 будет черный цвет, не будет файла обоев по умолчанию. FileName будет ="999.jpg", такого файла нет. На мой взгляд надо писать более хитрый if или использовать case. такой if
if ParamCount = 1 then
begin
FileName := ParamStr(1) + '.jpg';
FilePath := TPath.Combine(Dir, FileName);
end;
будет создавать FileName=ParamStr(1).jpg, в ParamStr(1) может быть (в общем случае) любое выражение "ф", "вася","море", и тд и тп.
И еще 1 момент, файлы 1.jpg ... 4.jpg для конфигурации TEST лежат в папке программы. Файлы обоев с именами filename0.jpg ... filename4.jpg (например) могут находится по разным путям и не обязательно путь к файлу, например, filename3.jpg будет совпадать с путем в Dir. Но это моя оплошность. Выражение C:\\folder\\subfolder\\subfolder\\ можно было понять как один путь к папке, я имел ввиду, что это разные пути. Надо было писать C:\\folder1\\subfolder1\\subfolder1\\, C:\\folder2\\subfolder2\\subfolder2\\
Безумие ) Возможно, и результат может превзойдет ожидания ). Такое использование оутлука освобождает меня от ряда рутинных задач. С другой стороны, такое использование оутлука можно рассматривать как событийную модель. Думаю, что это полезно будет в основном для тех, кто работает как "Ты ж один у нас программист !!!"
Спасибо, приятно )))
В параметрах файл не ожидается (по моей логике). Пути к файлам прописаны в самой программе. EXE файл будет содержать пути к файлам..
ЗЫ: я исхожу из того, что программа строго персональная, и тот, кто ей будет (теоретически) пользоваться изменит пути к своим проверенным файлам.
Да, про это я и написал. Вариантов реализации и логики может быть много. например после
FileName := ParamStr(1) + '.jpg'; FilePath := TPath.Combine(Dir, FileName); проверяем, существует ли файл FilePath. Если существует, оставляем все как есть, если не существует - присваиваем FileName и FilePath то что нам надо.
При такой логике, функционал программы немного расширится )))
За код спасибо.
При запуске ChangeDesktopColor.exe 999 будет черный цвет, не будет файла обоев по умолчанию. FileName будет ="999.jpg", такого файла нет. На мой взгляд надо писать более хитрый if или использовать case.
такой if
будет создавать FileName=ParamStr(1).jpg, в ParamStr(1) может быть (в общем случае) любое выражение "ф", "вася","море", и тд и тп.
И еще 1 момент, файлы 1.jpg ... 4.jpg для конфигурации TEST лежат в папке программы. Файлы обоев с именами filename0.jpg ... filename4.jpg (например) могут находится по разным путям и не обязательно путь к файлу, например, filename3.jpg будет совпадать с путем в Dir. Но это моя оплошность. Выражение C:\\folder\\subfolder\\subfolder\\ можно было понять как один путь к папке, я имел ввиду, что это разные пути. Надо было писать C:\\folder1\\subfolder1\\subfolder1\\, C:\\folder2\\subfolder2\\subfolder2\\
Да, статья конечно (с технической точки зрения) ..., , но иногда воспоминания нас делают моложе, возвращают нас во времена, когда мы были огого !!!
Спасибо за подсказку
Безумие )
Возможно, и результат может превзойдет ожидания ).
Такое использование оутлука освобождает меня от ряда рутинных задач.
С другой стороны, такое использование оутлука можно рассматривать как событийную модель.
Думаю, что это полезно будет в основном для тех, кто работает как "Ты ж один у нас программист !!!"
Я пользуюсь тем почтовым клиентом, который выбрали другие товарищи.
Безальтернативно )))
Может быть и до гугл таблиц доберусь, пока с ними не знаком.
Оутлук не как сервер приложений, а как сервер микросервисов