Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Разное
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 11.01.2007, 11:44
Аватар для CAHbKA
CAHbKA CAHbKA вне форума
Новичок
 
Регистрация: 10.01.2007
Сообщения: 66
Репутация: 10
По умолчанию Вопрос

Ребята помогите вот мой вопрос
Я пишу программу и мне нада чтоб он заходил в папку программы открывал файл и чистил информацию и пересохранял... НО самое главное чтоб пользователь не слидил за ходом событий
---------
Смысл моей программы прост я хочу чтоб с помощью ей пользователь удалял с своего компа Windows Messenger
Для этого нада
1)Включить отображение скрытых файлов
2)Зайти в папку
3)Открыть файл sysoc.inf
4)Найти строку msmsgs=msgrocm.dll,0cEntry,mgmggs.inf,hide,7
5)Сделать msmsgs=msgrocm.dll,0cEntry,mgmggs.inf,,7
Ну а потом тока пользователю удалить через Установка-Удаление программ-Установка компонентов Виндоуз
------
Задача моя только потренироваться с модулем ShellAPI
----
Я знаю тока как
открыть папку и файл если не ошибаюсь так
ФАЙЛ-
Код:
ShellExecute(Handle,nil,'ПУТЬ',nil,nil,SW_RESTORE);
ПАПКУ-
Код:
ShellExecute(Handle,'explore','ПУТЬ',nil,nil,SW_RESTORE);
Если я не ошибаюсь то..
SW_RESTORE -это Активизирует и отображает окно. Если это окно свернуто или развернуто то оно восстанавлмвается до своих первоначальныз размеров и отображается в первоначальной позиции(почти тоже самое что SW_SHOWNORMAL)
То если не писать его не видно будет ход действий и как изменять информацию в файле заменять ее в нужном месте и пересохранять...
Ответить с цитированием
  #2  
Старый 11.01.2007, 12:25
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,906
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

Что-то я не понял. Ты хочешь сделать чтобы пользователь видел все эти действия? Или что?
Ответить с цитированием
  #3  
Старый 11.01.2007, 12:31
Аватар для CAHbKA
CAHbKA CAHbKA вне форума
Новичок
 
Регистрация: 10.01.2007
Сообщения: 66
Репутация: 10
По умолчанию

Я хочу наобарот работус файлов но чтоб пользователь не видел все то что будет произходить
Ответить с цитированием
  #4  
Старый 11.01.2007, 12:54
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,906
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

Код:
var
  sl:TStringList;
  i:integer;
begin
  sl:=TStringList.Create;
  sl.LoadFromFile('C:\...\sysoc.inf');
  for i:=0 to sl.Count-1 do
    if pos('msmsgs=msgrocm.dll',sl[i])>0 {как вариант =1} then
      begin
        sl[i]:='msmsgs=msgrocm.dll,0cEntry,mgmggs.inf,,7';
        break;
      end;
  sl.SaveToFile('C:\...\sysoc.inf');
  sl.Free;
end;

Считает файл, заменит требуемую строку, и запишет. Путь естественно указать нужно
Ответить с цитированием
  #5  
Старый 11.01.2007, 12:57
Аватар для CAHbKA
CAHbKA CAHbKA вне форума
Новичок
 
Регистрация: 10.01.2007
Сообщения: 66
Репутация: 10
По умолчанию

Ясно а если нужно втереть всю строку то как писать?
Ответить с цитированием
  #6  
Старый 11.01.2007, 12:59
Аватар для CAHbKA
CAHbKA CAHbKA вне форума
Новичок
 
Регистрация: 10.01.2007
Сообщения: 66
Репутация: 10
По умолчанию

Тоесть стереть
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 21:21.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter