Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Операционные системы > Софт
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.08.2009, 23:20   #11
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
как записать номер я знаю, но вот как прочитать
прочитать точно так же, как и писать, только .WriteString (или WriteInteger, что Вы там используете) замените на ReadString (ReadInteger)

p.s. вообще-то не очень логично часть настроек хранить в INI, часть настроек в реестре. Храните тогда уже всё в реестре.
Кстати, секретности это не добавляет
Serge_Bliznykov вне форума Ответить с цитированием
Старый 11.08.2009, 09:37   #12
W0LF
Форумчанин
 
Аватар для W0LF
 
Регистрация: 28.03.2008
Сообщений: 940
По умолчанию

Serge_Bliznykov, помоги..
вот я использую

Код:
var
theS:String;
begin

theS:=copy(msg,pos(':',msg)+1,length(msg));

If pos ('!url:',ansilowercase(msg))>0 then
ShellExecute(GetDesktopWindow(), 'open',Pchar(theS), '', '',SW_SHOWDEFAULT);
вот theS выдирает из принятого сообщения текст после ":" и гонит в переменную, а как сделать что бы можна было выдерить текст от "(" до "," в одну переменную, скажем theSone, и от тойже "," до ")" в другую, скажем theStwo... помоги плиз
W0LF вне форума Ответить с цитированием
Старый 11.08.2009, 11:59   #13
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

W0LF, лучше бы пару примеров строк привели..

без уточнения задания, "в лоб" это как-то так будет:
Код:
var
  msg :String;
  theS:String;
  theSone, theStwo :String;
begin
  msg := 'test: (command #1, command Number Two)';
  theS:=copy(msg,pos(':',msg)+1,length(msg));

  theStwo := '';
  // считаем что в theS находится нужная строчка...
  if pos(',',theS)>0 then
  begin
     theSone := Copy(theS, 1, pos(',',theS)-1);
     // в вторую переменную всё, что от запятой до конца строки
     theStwo := Copy(theS, pos(',',theS)+1, Length(theS) - pos(',',theS));
  end
  else
    // запятой нет, поэтому целиком всё строку кидаем в theSone
    theSone := theS;


  // для отладки просто отобразим переменные
  Application.MessageBox(PChar('theSone  ='+theSone+chr(13)+
     'theStwo = '+theStwo),
     'Сообщение', MB_ICONINFORMATION or MB_OK);
Serge_Bliznykov вне форума Ответить с цитированием
Старый 11.08.2009, 19:18   #14
W0LF
Форумчанин
 
Аватар для W0LF
 
Регистрация: 28.03.2008
Сообщений: 940
По умолчанию

спс, ща буду бамбасить ето
W0LF вне форума Ответить с цитированием
Старый 15.08.2009, 17:40   #15
W0LF
Форумчанин
 
Аватар для W0LF
 
Регистрация: 28.03.2008
Сообщений: 940
По умолчанию

Были кое-какие проблемы с антивирем, но нече, всо исправил/поправил и вроде всё работает...

Версия 3.4 испробуйте пожалуйста (если будут ошибки: укажите именно какие или что не работает и какая у вас ОСь)
Скачать с народ.ру
Скачать с depositfiles
Скачать с rapidshare

Последний раз редактировалось W0LF; 15.08.2009 в 17:45.
W0LF вне форума Ответить с цитированием
Старый 16.08.2009, 17:17   #16
W0LF
Форумчанин
 
Аватар для W0LF
 
Регистрация: 28.03.2008
Сообщений: 940
По умолчанию

Как хатите, а я продалжаю...

Вресия 3.7 с новыми командами....
ссылка таже с народа, какая была и раньше, а именно: ссылка

Последний раз редактировалось W0LF; 17.08.2009 в 00:35.
W0LF вне форума Ответить с цитированием
Старый 27.08.2009, 12:12   #17
W0LF
Форумчанин
 
Аватар для W0LF
 
Регистрация: 28.03.2008
Сообщений: 940
По умолчанию

4 ВЕРСИЯ !!! )))
(со сменой команд)

Скачать ТУТ

PS: ПРОВЕРТЕ МОЮ ПРОГРАМУ НА VISTA, ПРОШУ...!

Последний раз редактировалось W0LF; 27.08.2009 в 12:29.
W0LF вне форума Ответить с цитированием
Старый 27.08.2009, 19:36   #18
havok
Пользователь
 
Аватар для havok
 
Регистрация: 24.08.2009
Сообщений: 42
По умолчанию

Цитата:
Сообщение от W0LF Посмотреть сообщение

ПРОВЕРТЕ МОЮ ПРОГРАМУ НА VISTA, ПРОШУ...!
инсталяшка сказала "данная программа работает под Win2000/NT/XP " и закрылась
icq 580047636 You're WELCOME!!!
havok вне форума Ответить с цитированием
Старый 27.08.2009, 20:00   #19
W0LF
Форумчанин
 
Аватар для W0LF
 
Регистрация: 28.03.2008
Сообщений: 940
По умолчанию

Вот программа без инсталятора

Скачать
W0LF вне форума Ответить с цитированием
Старый 28.08.2009, 16:56   #20
Simply-Art
Программист и
Участник клуба
 
Аватар для Simply-Art
 
Регистрация: 29.10.2006
Сообщений: 1,266
По умолчанию

Посмотрел программу, тестил на XP SP0. Открываю команды, сворачиваю их, разворачиваю и появляется окно которое было при загрузке. Диспетчер задач не блокируется у меня, когда блокирую мышку/клаву то это разблокируется ctrl+alt+del. Списка файлов в папке я так и не получил от программы. Файл из инета почему-то тоже не вытянул, и вопрос куда она эти файлы должна сохранять? Зачем пункт "Консоль" что он делает? И последнее, ИМХО, статус соединения лучше отображать значком в трее, чем в меню.
Simply-Art вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ICQ Alex2009 Работа с сетью в Delphi 2 30.06.2009 16:46
Регистрация в ICQ mustang007 Работа с сетью в Delphi 6 13.05.2009 15:18
icq sergei64_89 Общие вопросы .NET 1 25.10.2008 04:54
ICQ SunKnight Работа с сетью в Delphi 4 20.01.2008 01:17