Вопросы по Delphi (все версии) - часть 3 - [13] :: Прикладное программирование :: Компьютерный форум Ru.Board
Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (все версии) - часть 3

Модерирует : ShIvADeSt

ShIvADeSt (07-04-2008 02:27): продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=9383  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

   

killerbeanjeka

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
GreatOne
 
 
можно так: Подробнее... [?]  
сам не проверял, но вроде говорят работает

Всего записей: 86 | Зарегистр. 27-09-2006 | Отправлено: 18:36 08-05-2007
Arvur



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
killerbeanjeka
Это уж как-то совсем жестко...  
В основе идеи лежит тот же строковый массив + AnsiIndexStr. Но накручивать поверх этого RTTI имхо лишнее.

Всего записей: 2111 | Зарегистр. 18-01-2002 | Отправлено: 19:15 08-05-2007
GreatOne



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
killerbeanjeka
Спасибо.
 
Кто-нить знает как получить handle проги которая скрыта от диспетчера задач(видна только в процессах) или находиться в трее????
 
Добавлено:
Все, не надо - сам нашел. Подскажите как убить антивирь касперского в процессах, а то он чет не хочет закрываться

Всего записей: 85 | Зарегистр. 15-03-2007 | Отправлено: 22:01 08-05-2007
OdesitVadim



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
GreatOne
Во первых, здесь не андеграунд. А во вторых, убить каспера достаточно накладно. Он не даёт это сделать. Он на уровне ядра перехватывает убиение процесса. Но есть куча способов его снести. Но помогать людям которые потом будут гадить тебе или твоим(моим) друзям я не буду.

----------
Press any key to continue or any other key to exit
Пишите так, чтобы не было стыдно за нобелевскую премию.

Всего записей: 1568 | Зарегистр. 19-09-2003 | Отправлено: 23:38 08-05-2007 | Исправлено: OdesitVadim, 23:41 08-05-2007
MACKLIA

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вопрос такого плана-необходимо получить список параметров ,входящих в определённый раздел реестра.Пример: астозагрузка осуществляется из HKEY_LOCAL_MACHINE\Softvare\Microsoft\Windows\CurrentVersion\Run -нужно получить все программы добавленные в автозагрузку по этому пути.

Всего записей: 1 | Зарегистр. 28-04-2007 | Отправлено: 00:26 09-05-2007
RomanTim

Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Arvur
Понятно, что можно обойти по всякому - если уж очень case хочется, хотя я обычно через if...else if... else if... делаю. Хотя наверное если очень большой список веток, да использовать  не просто массив, а что-нибудь более оптимизированное по скорости поиска - тогда оно того стоит
 
MACKLIA
TRegistry - OpenKey, GetValueNames, ReadString

Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 10:26 09-05-2007
GreatOne



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
OdesitVadim
Блин!!! Я не пишу вирь, просто у меня каспер частенько подвисает и выйти из него нет возможности, кроме ресета.

Всего записей: 85 | Зарегистр. 15-03-2007 | Отправлено: 11:05 09-05-2007
scharhan

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
против касперское есть, и другой выход, поставь что-то другое, например симантек, ато касперский очень въедается в систему, у меня тоже прижился, я его бью, а он не уходит
-----
Кто-то знает более действенный способ уменьшить прогу, чем KOL, а то в KOL мало компонентов, и прогу предется под него переписывать, не очень хочется из-за 1 плюза грузить столько минусов!!!
 
Добавлено:
Кто- нибудь знает как сделать чтобы в программе сохранялись настройки,  
например в программе можно менять цвет формы, но когда её закрываешь, а затем опять открываешь, этот цвет нужно устанавливать по новой.
HELP!!!

Всего записей: 27 | Зарегистр. 26-04-2007 | Отправлено: 13:08 09-05-2007
GreatOne



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
scharhan
Попробуй сохранять настройки в ini файле

Всего записей: 85 | Зарегистр. 15-03-2007 | Отправлено: 14:21 09-05-2007
scharhan

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
GreatOne
ок, я так и собирался но не знаю, КАК?

Всего записей: 27 | Зарегистр. 26-04-2007 | Отправлено: 17:00 09-05-2007
OdesitVadim



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
scharhan
Вот те пример.
В uses добавляеш IniFiles
 
Текст сохранения.

Код:
 
procedure SaveParam;
var ini:TIniFile;
begin
  ini:=TIniFile.Create(ChangeFileExt(Application.exename),'.ini');//Если указать просто имя ини файла без полного пути, то создаст в documents and Setting (Если новая винда)
  ini.WriteString('section','paramname','paramvalue');
  ini.writeinteger('Form1','Width',Form1.width);
  ini.free;
end;
 

Чтение настроек

Код:
 
procedure LoadParam;
var ini:TIniFile;
s:string;
begin
  ini:=TIniFile.Create(ChangeFileExt(Application.exename),'.ini');//Если указать просто имя ини файла без полного пути, то создаст в documents and Setting (Если новая винда)
  s:=ini.ReadString('section','paramname','paramdefaultvalue');
  Form1.width:=ini.readinteger('Form1','Width',Form1.width);
  ini.free;
end;
 

Также там есть много разных методов на чтение буленовских переменных, даты и прочего. Что бы цвет сохранить, пользуемся тем, что Color - Это тот же Cardinal, тоесть целое без знака.
 
Недостаток этого способа - если в цикле сотню-другую параметров записать захочешь - тормоза будут. И ещё есть ограничение на 64кило. Но делфи тут ни причём - это всё особенности винды. Но если заменить TIniFile на TMemIniFile и не забыть перез ini.free после записи файла писать ini.update, то всё стаёт на места свои
 
Добавлено:
GreatOne
Сносить подальше сей антивирь. Он ещё чудно место на дисках хавает, если там НТФС. А кнопочку ресет для него - это жесть! По поводу что лучше/хуже - в соответствующую ветку форума

----------
Press any key to continue or any other key to exit
Пишите так, чтобы не было стыдно за нобелевскую премию.

Всего записей: 1568 | Зарегистр. 19-09-2003 | Отправлено: 18:17 09-05-2007
SERGE_BLIZNUK

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
scharhan

Цитата:
Кто-то знает более действенный способ уменьшить прогу, чем KOL, а то в KOL мало компонентов

вы сами себе противоречите - Вам правильно подсказали, что программа "пухнет" от использования VCL (как раз тех компонент, которых Вам так не хватает). Если писать с использованием функций WinAPI (ну или с использованием KOL) - тогда размер уменшается. Если используете стандартные компоненты - смиритесь с тем, что размер EXE будет достаточно большой. Кстати, а чем вам лишний мегабайт так мешает? Сейчас выполняемый файл в пару мегабайт уже почти норма (как это не печально). Есть ещё программы сжимающие выполняемые файлы (AsPack, UPX и иже с ними....) - но от них скорее больше вреда, чем пользы.

Цитата:
Кто- нибудь знает как сделать чтобы в программе сохранялись настройки,
Кстати, к слову, есть компоненты, которые достаточно бросить на форму, что она сама запоминала (записывала в INI) свои размеры и положение.... Хотя чаще самому ручками можно лучше сделать.

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 22:20 09-05-2007
scharhan

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
OdesitVadim
В uses добавляеш IniFiles  
 
Текст сохранения.  
 
Код:  
procedure SaveParam;  
var ini:TIniFile;  
begin  
  ini:=TIniFile.Create(ChangeFileExt(Application.exename),'.ini');//Если указать просто имя ини файла без полного пути, то создаст в documents and Setting (Если новая винда)  
  ini.WriteString('section','paramname','paramvalue');  
  ini.writeinteger('Form1','Width',Form1.width);  
  ini.free;  
end;  
   
 
Чтение настроек  
 
Код:  
procedure LoadParam;  
var ini:TIniFile;  
s:string;  
begin  
  ini:=TIniFile.Create(ChangeFileExt(Application.exename),'.ini');//Если указать просто имя ини файла без полного пути, то создаст в documents and Setting (Если новая винда)  
  s:=ini.ReadString('section','paramname','paramdefaultvalue');  
  Form1.width:=ini.readinteger('Form1','Width',Form1.width);  
  ini.free;  
end;  
 
НЕ ПАШЕТ
УЖЕ ЗДЕСЬ  
ini:=TIniFile.Create(ChangeFileExt(Application.exename),'.ini');
ДЕЛФИ РУГАЕТСЯ
ставит курсор перед ,'.ini');

Всего записей: 27 | Зарегистр. 26-04-2007 | Отправлено: 22:55 09-05-2007
OdesitVadim



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
А текст ошибки почитать не судьба? и дублировать мой ответ тоже не стоило. Код писался "наколенке", поэтому мог смазать.
А ошибка была проста - скобку чуть не туда поставил
сравниваем
было

Код:
 
  ini:=TIniFile.Create(ChangeFileExt(Application.exename),'.ini'));
 

стало

Код:
 
  ini:=TIniFile.Create(ChangeFileExt(Application.exename,'.ini'));
 


----------
Press any key to continue or any other key to exit
Пишите так, чтобы не было стыдно за нобелевскую премию.

Всего записей: 1568 | Зарегистр. 19-09-2003 | Отправлено: 23:11 09-05-2007
s1n



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
упс, OdesitVadim опередил

----------
Время и место каждого Подвига определяется Судьбой.
Но если не придет Герой - не будет и Подвига.

Всего записей: 976 | Зарегистр. 30-07-2003 | Отправлено: 23:16 09-05-2007 | Исправлено: s1n, 23:17 09-05-2007
virpool

Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Помогите, ктонить пожалуйста, реализовать такую конструкцию на Делфи
<form action=http://chex.dp.ua/icq_test.php method=post>
 <input type=text name=vvv>
 <input type=submit value=Send>
</form>
при помощи компонента TIdHTTP

Всего записей: 143 | Зарегистр. 01-02-2007 | Отправлено: 23:57 09-05-2007
OdesitVadim



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
virpool
Без проблем.

Код:
 
var sl:TStringList;
s:string;
begin
sl:=TStringList.create;
sl.add('vvv=samevalue');
s:=idHttp1.post('http://chex.dp.ua/icq_test.php',sl);
sl.free;
end;
 


----------
Press any key to continue or any other key to exit
Пишите так, чтобы не было стыдно за нобелевскую премию.

Всего записей: 1568 | Зарегистр. 19-09-2003 | Отправлено: 00:18 10-05-2007
virpool

Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
OdesitVadim
Большое спасибо) А можно еще както получить данные post?
 
Добавлено:
Или они в переменную s помещаются?...

Всего записей: 143 | Зарегистр. 01-02-2007 | Отправлено: 00:26 10-05-2007
OdesitVadim



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Да, туда они и помещаются. Правда метод Post - перегружен, и если картинку хочеться получить (ну уж точно это не строка), то можно и в поток сохранить

----------
Press any key to continue or any other key to exit
Пишите так, чтобы не было стыдно за нобелевскую премию.

Всего записей: 1568 | Зарегистр. 19-09-2003 | Отправлено: 01:13 10-05-2007
GreatOne



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Стало вдруг интерестно - как можно узнать имена юзеров которые в данных момент просматривают вордовский файл на моем компе?? Ессесено с помощью дельфи.

Всего записей: 85 | Зарегистр. 15-03-2007 | Отправлено: 15:52 10-05-2007
   

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (все версии) - часть 3
ShIvADeSt (07-04-2008 02:27): продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=9383


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2025

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru