Вопрос может не в тему и "никакой" НО для меня он актуален, извиняюсь заранее но аналогичного для размещения ни чего не нашёл. Прабла в следующем: пакет разработки Borland Developer Studio 2006 устанавливаешь требуется регистрация точнее файл (ключ), для этого регишся на http://www.codegear.com/downloads/free/turbo и должны переслать именно этот "ключ" на мыльничек, всё по пунктам не раз проделывал пишется что пакет отправлен как результат ящик пуст (фильтрацию проверял, ограничений не выставлено). Может у кого есть мысли на данный счёт или "кейген".
Сначал надо найти через Апи функции например по заглавию, то поле которе хочешь изменить, а потом послать ему Сообщение на смену текста. ПС:текст проги подсказать не могу, так как под рукой нет справочника по Апи. Попробуй сам найти,если не получиться запости еще раз на форуме - помогу
procedure SetWinText(hWin: DWORD ;Text: String); begin SendMessage(hWin, WM_SETTEXT, 0, Integer(Text)); end;
Вот: Примерно так.. Поиск всех дочерних окон и главного окна, по заголовку, дальше через SendMessage, посылаешь нужному элементу текст..
Здравствуйте! Друг попросил создать снифер на Дельфях...А вот что это такое я не знаю!(только не надо смеяться)Может кто объяснить, что это и как работает?
Сниффер это анализатор трафика. Вот здесь можешь почитать поподробнее http://ru.wikipedia.org/wiki/Sniffer
Спасибо за помощь выручили !!!... А еще можете научить пользоваться HttpAnalyzerStdV3..Статью какую нить... просто посмотрю как он работает и попробую написать такую... Интересно стало
HTML: var a1,a2,a3,a4,a5,a6,a7,a8,a9,a10:char; begin a1:=StrToFloat(Edit1.Text); a2.. a3..... Edit11.Text:=FloatToStr(a1); end; Помогите пожалуйста, мне нужно чтобы текст из Edit1.Text присвоила переменная "a1", а текстЪ) Edit11.Text отображал все переменные от a1 до a10. С цифрафи var a1,a2,a3,a4,a5,a6,a7,a8,a9,a10:real - вроде работает,а с буквами- нет. Подскажите как реализовать?
само собой , это ж real ... a:array[1..10] of string[10]; a[1] := Edit1.Text; .... Edit11.Text := сумма массива ...
Спасибо! Все заработало! Еще вопрос, подскажите, как мне получить все возможные комбинации из 8 переменных? Есть 8 разных чисел, нужно вывести их в окно (Memo), но они не должны повторятся. 12345678 12345687 12345867... 87654321 Подскажи, как это реализовать?
Code: type maska = array[1..8] of boolean; const chars = '12345678'; var msk: maska; procedure replaces(s: string; c: byte; m: maska); var i: integer; begin if c = 8 then Form1.Memo1.Lines.Add(s) else for i := 1 to 8 do if not m[i] then begin m[i] := true; replaces(s + chars[i], c+1, m); m[i] := false; end; end; procedure TForm1.FormCreate(Sender: TObject); begin replaces('',0,msk); end; 8! штук...
подскажите как вставлять ссылки в делфи. (т.е при нажатии на ссылку переходишь по определенному адресу)
с этим ничего не вышло. кто может подскажите. и еще вопрос. перенес на новую оболочку PageControl, создал несколько новых вкладок. комплитирую и получаю окно этой программы. но когда разворачиваю на весь экран то оболочка разворачивается а PageControl нет. как сделать чтобы при развертывании программы на весь экран PageControl тоже разворачивалась?
zlOy правильно говорит используй ShellExecute, может ты просто забыл модуль ShellApi?! А на счёт pagecontrol:что ты подразумеваешь под словом новая оболочка? она что не стандартной формы у тебя?
объясню заново. запустил делфи пуск-программы-делфи. далее файл-создать-приложение. появляется окно. перетаскиваю на это окно из Win32 PageControl. жму F9. появляется программа. если ее развернуть то оболочка программы разворачивается а PageControl остается на месте. как сделать так что бы оболочка программы с PageControl разворачивались и сворачивались синхронно? zlOy правильно говорит используй ShellExecute, может ты просто забыл модуль ShellApi?! делаю так - запустил делфи пуск-программы-делфи. далее файл-создать-приложение. появляется окно. перетаскиваю на это окно стандартные- Label. два щелчка и появляется этот текст- procedure TForm1.Label1Click(Sender: TObject); begin end; end. вставляю код zlOy'ва так- procedure TForm1.Label1Click(Sender: TObject); begin ShellExecute(Handle, nil, 'http://www.my.com', nil, nil, SW_SHOW); end; end. при нажатии F9 просто выделяется бордовым цветом код который указал zlOy'ва а внизу это- [Ошибка] Unit1.pas(28): Undeclared identifier: 'ShellExecute' [Фатальная Ошибка] Project2.dpr(5): Could not compile used unit 'Unit1.pas'
объясняю: 1) вставляешь этот код по щелчку на label. Затем поднимаешься по коду выше( в самое начало) где модули uses прописаны(Windows, SysUtils, ... и прочие) подключаешь через запятую новый модуль(по умолчанию его нет!) - SHELLAPI. нажимаешь F9. 2) чтобы pagecontrol развертывался вместе с формой, выдели его и в свойствах его найди Align( почти самое первое) и измени на atClient! всё!
A2gil огромное тебе спасибо. все получилось. теперь возник еще вопросик. как писать текст? т.е запустил делфи пуск-программы-делфи. далее файл-создать-приложение. появляется окно. какой элемент надо перенести чтобы в результате получилась просто программа содержащая текстовую информацию?
