» Вопросы по Delphi (все версии) - часть 3

GreatOne


можно так: [more] uses
TypInfo;

type
TNumericChoiceParent = (ncp_Mother, ncp_Father, ncp_Child);

procedure TForm1.btChooseClick(Sender: TObject);
var
S: string;
begin
S := InputEdit.Text;
case TNumericChoiceParent(GetEnumValue(TypeInfo(TNumericChoiceParent), 'ncp_' + S)) of
ncp_Mother: ShowMessage('Hello Mom )');
ncp_Father: ShowMessage('Hi, Dad -]');
ncp_Child: ShowMessage('Shut up and eat your soup !-(');
else
ShowMessage('Who do you think that you are?');
end;
end;[/more]
сам не проверял, но вроде говорят работает

killerbeanjeka
Это уж как-то совсем жестко...
В основе идеи лежит тот же строковый массив + AnsiIndexStr. Но накручивать поверх этого RTTI имхо лишнее.

killerbeanjeka
Спасибо.

Кто-нить знает как получить handle проги которая скрыта от диспетчера задач(видна только в процессах) или находиться в трее????

Добавлено:
Все, не надо - сам нашел. Подскажите как убить антивирь касперского в процессах, а то он чет не хочет закрываться

GreatOne
Во первых, здесь не андеграунд. А во вторых, убить каспера достаточно накладно. Он не даёт это сделать. Он на уровне ядра перехватывает убиение процесса. Но есть куча способов его снести. Но помогать людям которые потом будут гадить тебе или твоим(моим) друзям я не буду.

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

Arvur
Понятно, что можно обойти по всякому - если уж очень case хочется, хотя я обычно через if...else if... else if... делаю. Хотя наверное если очень большой список веток, да использовать не просто массив, а что-нибудь более оптимизированное по скорости поиска - тогда оно того стоит

MACKLIA
TRegistry - OpenKey, GetValueNames, ReadString

OdesitVadim
Блин!!! Я не пишу вирь, просто у меня каспер частенько подвисает и выйти из него нет возможности, кроме ресета.

против касперское есть, и другой выход, поставь что-то другое, например симантек, ато касперский очень въедается в систему, у меня тоже прижился, я его бью, а он не уходит
-----
Кто-то знает более действенный способ уменьшить прогу, чем KOL, а то в KOL мало компонентов, и прогу предется под него переписывать, не очень хочется из-за 1 плюза грузить столько минусов!!!

Добавлено:
Кто- нибудь знает как сделать чтобы в программе сохранялись настройки,
например в программе можно менять цвет формы, но когда её закрываешь, а затем опять открываешь, этот цвет нужно устанавливать по новой.
HELP!!!

scharhan
Попробуй сохранять настройки в ini файле

GreatOne
ок, я так и собирался но не знаю, КАК?

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;

scharhan

Цитата:

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

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

Цитата:

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

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

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');

А текст ошибки почитать не судьба? и дублировать мой ответ тоже не стоило. Код писался "наколенке", поэтому мог смазать.
А ошибка была проста - скобку чуть не туда поставил
сравниваем
было

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

упс, OdesitVadim опередил

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

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;

OdesitVadim
Большое спасибо) А можно еще както получить данные post?

Добавлено:
Или они в переменную s помещаются?...

Да, туда они и помещаются. Правда метод Post - перегружен, и если картинку хочеться получить (ну уж точно это не строка), то можно и в поток сохранить

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

GreatOne
API функция NetFileEnum - подробности в МСДН
В самой делфи заголовочных файлов нет, так что или описывай сам по документации, или бери что-то типа JediAPI

Необходима срочная помощь. При компиляции выдает сообщение
Не могу найти указанный файлFile not found "System reflection.dcu"

2ShBulekbaev

Походу ты подключил модуль которого нет.

Подскажите функцию для работы с датой, чтобы получать её в виде числа секунд с 1970г. А ещё лучше было бы преобразовать стандартный формат даты и времени "15.05.2007 12:14:35" в количество секунд. Т.е проблема в преобразовании строчки с датой в кол. секунд с 1970г.
Спасибо.

Aleks007
Посмотрите в сторону модуля DateUtils
там есть и
function SecondOf(const AValue: TDateTime): Word;
и function SecondsBetween(const ANow, AThen: TDateTime): Int64;

Думаю вам хватит уже готовых функций и методов.

Нужно программно сохранить web-страницу в текстовый файл.

Vitus_Bering
Тебе которую? Ту, что уже в браузере, или по заданной ссылке?

Arvur
Можно все варианты?

Vitus_Bering

Цитата:

Можно все варианты?

Легко
Просто получить html-документ по ссылке: взять какой-нибудь пакет, расчитанный на минимум усилий - например, Clever Internet Suite (был на пролазе).
Из браузера будет чуть сложнее.
Если для FireFox или Opera - сходу не подскажу, надо читать у них на сайте. Для Delphi мне таких библиотек не попадалось.
Если для IE - придется писать к нему плагин, Browser Helper Object. Можно взять готовые каркасы:
- Самый известный - _http://www.bsalsa.com
- Мне больше понравился _http://www.evocorp.com/Delphi/, он и попроще.
- Есть еще несколько на торри, в частности очень мощный пакет от Alexander Agafonoff, но поддержки к нему нет, а код написан ужасно. По возможностям он наиболее крут.
Правда здесь в любом раскладе придется потратить больше времени, чем просто скачивая по url.

Arvur
Спасибо.