» Вопросы по Delphi 2

Люди помогите.
1.
Мне необходимо задать выполнение команды (допустим набраной в поле Edit1) аналогично команде "выполнить" (в менюхе "Пуск")


БРРРР надеюсь понятно объяснил



2. как назначить горячие клавиши на поля "Edit"

JoniK
1. Смотри в сторону ShellExecute
2. Что значит назначить горячие клавиши - чтобы при нажатии фокус уходил на соответствующий едит? Например через OnKeyDown у формы и EditX.SetFocus

а проше используй модуль
\Program Files\Borland\Delphi7\Demos\Doc\Filmanex\FmxUtils.pas


там есть ф-ция
function ExecuteFile(FileName, Params, DefaultDir: string; ShowCmd: Integer)

всё просто например

ExecuteFile('cmd.exe', '/k dir c:\', ''; 1)


Для горячих клавиш хорошо использовать ActionEditor

Хочу написать программу, при открытии которой будет загружать окно с активацией данного софта. Как сделать следующее : если введенный активационный код верный, то это окно больше появляться не будет
Заранее спасибо

Notebook1000
Можно так: после того как ключ(правильный) был введен, создайте ключ в реестре значение которого будет сгенерено(лучше всего придумайте свой алгоритм но можно и использовать стандартные криптование, что то типа MD5, RC4, RC6 и тому подобные) из активиационного ключа. При запуске программы читайте значеие этого ключа и обрабатывайте его, а по результатам проверки выполняйте нужные действия.
Вместо реестра можно это писать в файл.

а если устпновить JEDI-VCL то там, вроди, есть компоненты, которые, могли б Вам помочь.

Вопрос решился довольно просто. Чтобы хэлп опять появился помогло вот это:
c:\Program Files\Borland\BDS\4.0\Help\Common\regHelp.exe 7

Посоветуйте: необходимо реализовать что-то вроде ACDSee в моём проекте, то есть в определённой форме должны прогружаться миниатюры картинок из определённой папки, величину этих миниатюр в рантайме нужно менять, а по клику увиличивать и показывать ещё кое что, типа описания. Какой компонент годится? Ещё нужна возможность сохранения. Попробовал в ScrollBox создавать Image - как то не модно по интерфейсу.

unfreqient

Установите JEDI-VCL и там есть компонент TJvThumbView это то, что Вам нужно!

Цитата:

TJvThumbView это то, что Вам нужно

А есть у меня уже такая вещь! Правда не пробовал с ней работать и не знал для чего она. Попробуем с ним, хотя JEDI не долюбливаю - описния нормального не нашёл к этим компонентам.

Попробовал TJvThumbView:
Положил в папку штук 20 фоток, форма загружается реально долго, к тому же выдаётся ошибка деления на ноль (уже сразу ничего не меняя).
Что же будет когда я выложу 20000 фоток?
Глюконент, короче.

как отправить сообщения на icq?

пробую вот так не получается:
[more]
var
Form1: TForm1;
csend: string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
cSend := 'POST http://wwp.icq.com/scripts/WWPMsg.dll HTTP/2.0' + chr(13) + chr(10);
cSend := cSend + 'Referer: http://wwp.mirabilis.com' + chr(13) + chr(10);
cSend := cSend + 'User-Agent: Mozilla/4.06 (Win95; I)' + chr(13) + chr(10);
cSend := cSend + 'Connection: Keep-Alive' + chr(13) + chr(10);
cSend := cSend + 'Host: wwp.mirabilis.com:80' + chr(13) + chr(10);
cSend := cSend + 'Content-type: application/x-www-form-urlencoded' + chr(13) + chr(10);
cSend := cSend + 'Content-length:8000' + chr(13) + chr(10);
cSend := cSend + 'Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*' +
chr(13) + chr(10) + chr(13) + chr(10);
cSend := cSend + 'from=' + edit1.Text + ' &fromemail=' + edit2.Text +
' &fromicq:110206786' + ' &body=' + memo1.Text + ' &to=' + edit3.Text + '&Send=';
clientsocket1.Active := True;
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
clientsocket1.Socket.SendText(csend);
clientsocket1.Active := False;
end;

[/more]

unfreqient

Цитата:

Положил в папку штук 20 фоток, форма загружается реально долго.

Скорость открытия зависит от размера Thumb'а, и разрешения просматриваемого файла, чем меньше то или то, тем быстрее откроет. И здесь нечего не поделаешь.

Цитата:

к тому же выдаётся ошибка деления на ноль (уже сразу ничего не меняя).

На счет ошибки не знаю у меня всё Ок
Цитата:

Что же будет когда я выложу 20000 фоток?

Боюсь что для сотольки фотографий и ACDSee быстро не отработает.

Цитата:

Цитата: Что же будет когда я выложу 20000 фоток?

Боюсь что для стольки фотографий и ACDSee быстро не отработает.

unfreqient

Цитата:

Попробуем с ним, хотя JEDI не долюбливаю - описния нормального не нашёл к этим компонентам.

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

А с помощью Delphi под Win Mobile 2003-05 можно мутить?

У меня самый дурацкий вопрос
Я посылаю пакет серверу, добавляю заголовок:
Headers := 'Content-Type: application/x-www-form-urlencoded';

Но заголовок слипаеться, то есть:
...
Content-Type: application/x-www-form-urlencodedИ ТУТ СЛЕДУЙЩИЙ
И Дальше пошло
...

Как мне обозначить конец строки? \r\n не подошло

Цитата:

ghost3k

http://bdn.borland.com/article/33507

Zver1992
попробуй: 'заголовок1'#13#10'заголовок2' (#13#10 то же самое что и \r\n в сях)

Zver1992
вроде так если нет то поменяй местами коды

Цитата:

Headers := 'Content-Type: application/x-www-form-urlencoded'+#10#13;

Кто знает, какой код нужно написать, для того чтобы путём нажатия какой-нибудь кнопки моего приложения добавить значение в окно "подключения к интернету". Например у меня есть поле редактрования Edit1.Text и кнопка Button1 и требуется добавить или вставить текст из Edit1.Text в любое из полей окна "подключение к интернету", нажав кнопу Button.

kzsergo
чесно, нечего не понял. Можно как-то более дально объяснить что надо. А то Edit1.Text, Button1.....

ЗЫ Учимся задавать вопросы - господа!!!!

Вопрос есть у меня.
То что я пишу для себя в Дельфи не требует версий выше третьей (на ней я и пишу собственно), но попалась версия 7 и мне не понятно стало почему скомпелированный файл программы в Дельфи7 раза в 4 больше по размеру чем такойже файл скомпелированный в Дельфи3.

Почему так и как это исправить.

dmit000

Цитата:

То что я пишу для себя в Дельфи не требует версий выше третьей (на ней я и пишу собственно), но попалась версия 7 и мне не понятно стало почему скомпелированный файл программы в Дельфи7 раза в 4 больше по размеру чем такойже файл скомпелированный в Дельфи3.   Почему так и как это исправить.  

Потому что больше свойств стало у стандартных классов, поэтому и код больше. Никак это не исправится, пиши на АПИ и будет пофигу на чем компилировать.

Цитата:

чесно, нечего не понял. Можно как-то более дально объяснить что надо. А то +Edit1.Text, Button1

Что тут непонятного-то. На форме (класса TForm) имеется два компонента поле редактирования (класса TEdit) и исполнительная кнопка (класса TButton). Предположим я ввел пароль или имя с интернет карточи в поле редактирования (класса TEdit). Дальше нужно, чтобы значение, содержащееся в этом поле редактирования (класса TEdit), оказалось в соответственном поле редактирования окна "подключение к интернету" для этого должна нажиматься исполнительная кнопка (класса TButton).

kzsergo
Если ты хочешь, чтобы текст из одного окна перенесся в другое - бери какую-нибудь прогу, позволяющую просматривать окна (например WinSight, SpyXX) - смотри что из себя представляет окно подключения, а затем FindWindow, FindWindowEx, SetWindowText.

Если же ты хочешь, чтобы можно было ввести пароль у себя в программе, а он потом появился в окне подключения когда его откроют - то тогда скорее всего надо писать в реестр - можно с помощью класса TRegistry, а место... RegMon, поиск по инету, форумы по Windows... ну или может кто здесь знает и присоветует

Объясните что это такое - FindWindow, FindWindowEx, SetWindowText. Я еще начинающий программист и пока достаточно мало знаю.

kzsergo
Функции Windows API - описаниие или в справке по делфи (менее подробное) или в MSDN (если нет локального варианта, то msdn.microsoft.com)

kzsergo

Цитата:

FindWindow, FindWindowEx, SetWindowText

значит, вас всё таки поняли правильно и вы хотите писать текст в "чужое" приложение...

рекомендую набор факов и статей по Дельфи - Delphi World 6 Pro - 5000 статей по Delphi

там был ответ, как это сделать...

Цитата:

значит, вас всё таки поняли правильно и вы хотите писать текст в "чужое" приложение...

Несовсем понял. Я не знаю как найти ссылку на поля редактирования нужного мне окна. Я не уверен, но мне кажется что нужно подключать библиотеку в моем случае она находится в файле Wininet.dll. Найдя ссылку, я смогбы воспользоваться SetWindowText тем самым вставить мой текст в эти поля (пароль или имя). И если вы знаете как вообще подключать чужие библиотеки и брать оттуда какие-либо функции или формы, то скажите.

kzsergo
FindWindow - ищешь окно подключения по заголовку окна и можно классу (его можно посмотреть с помощью SpyXX)
FindWindowEx - ищешь нужный контрол у найденного окна подключения
SetWindowText - задаешь содержимое этого контрола
Wininet.dll для этого не нужен - все функции лежат в Windows.pas

Описание того как подключать функцию из библиотеки можешь найти в справке к делфи прыгая от "external"
Непосредственно форму из библиотеки ты не возьмешь - разве что какая-нибудь функция в процессе работы создает окно