Отправлено: 28.11.06 22:22. Заголовок: Delphi

Вот тема про Delphi.....
Сюда будем сливать интерестные примеры....

 Отправлено: 28.11.06 22:27. Заголовок: Re:

Функция замены заголовка активной программы.

цитата:

if findwindow(nil, 'Название проги') <>0 then setwindowtext (FindWindow(nil, 'Название проги'),'Новое название' );

 Отправлено: 28.11.06 22:29. Заголовок: Re:

Как выполнить какой-то процесс тогда, когда пользователь не работает с моим приложением?

Ответ:
Создайте процедуру, которая будет вызываться при событии Application.OnIdle.

Обьявим процедуру:

цитата:

{Private declarations} procedure IdleEventHandler(Sender: TObject; var Done: Boolean);

В разделе implementation опишем поцедуру:

цитата:

procedure TForm1.IdleEventHandler(Sender: TObject; var Done: Boolean); begin {Do a small bit of work here} Done := false; end;

В методе Form'ы OnCreate - укажем что наша процедура вызывается на событии
Application.OnIdle.

цитата:

Application.OnIdle := IdleEventHandler;

Событие OnIdle возникает один раз - когда приложение переходит в режим "безделья" (idle). Если в обработчике переменной Done присвоить False событие будет вызываться вновь и вновь, до тех пор пока приложение "бездельничает" и переменной Done не присвоенно значение True.

 Отправлено: 26.04.07 15:41. Заголовок: Re:

2Sora специально для тебя ...

Программа для добовления приложений в Run:

цитата:

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,Registry, StdCtrls, XPMan; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; OpenDialog1: TOpenDialog; Edit2: TEdit; Button2: TButton; XPManifest1: TXPManifest; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Edit1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; reg:Tregistry; nameprog:string[20]; pathprog:string[80]; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin if (Edit2.Text='') then begin ShowMessage ('Выбери прогу!!') end else begin if (Edit1.Text='Название проги' ) or (Edit1.Text='' ) then begin Edit1.Text := 'Key: Runing_Demo'; nameprog := 'Runing_Demo' end else begin nameprog:=Edit1.Text; end; pathprog := Edit2.Text; reg:=tregistry.create; reg.rootkey:=HKEY_LOCAL_MACHINE; reg.openkey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',true); reg.writestring(nameprog,pathprog); reg.closekey; reg.destroy; end; end; procedure TForm1.Button2Click(Sender: TObject); begin OpenDialog1.Title:='Выбрать прогу для автозагрузки'; OpenDialog1.Execute; Edit2.Text := OpenDialog1.FileName; end; procedure TForm1.Edit1Click(Sender: TObject); begin Edit1.Text:=''; end; End.

 Отправлено: 26.04.07 22:04. Заголовок: Re:

Fant@zeR пишет:

цитата:

if findwindow(nil, 'Название проги') <>0 then setwindowtext (FindWindow(nil, 'Название проги'),'Новое название' );

Ахренеть. Типа узнал много нового

 Отправлено: 27.04.07 16:46. Заголовок: Re:

Sora пишет:

цитата:

Ахренеть. Типа узнал много нового

На дату посмотри, ламер...

 Отправлено: 28.04.07 20:50. Заголовок: Re:

И че, ламер?

 Отправлено: 14.05.07 14:46. Заголовок: Re:

База данных

В комплекте с «Delphi 7 и выше» поставляются сразу несколько библиотек для работы с базами данных (ADO, BDE, dbExpress, InterBase и др.). Для того чтобы создать приложение, работающее с локальной базой данных, то вы обычно используете библиотеку BDE. Эта библиотека создана компанией Borland и уже порядком устарела. Но без определённой подготовки операционной системы эти компоненты работать не будут. Есть альтернатива этим компонентам.
Существует автономный компонент TClientDataSet, который использует свой собственный формат данных.
Итак, переходим к практике. Компонент TClientDataSet использует файлы с расширением *.CDS и *.XML мы будем рассматривать формат CDS, так как XML формат занимает вдвое больше места на диске и такой файл легко можно изменить, открыв его через блокнот. Этот компонент при создании проецирует файл в память и модифицирует только память, а при уничтожении данные записываются в файл целиком. Путь к файлу определяет свойство FileName.

Вот вам пример базы данных с функциями: добавление, изменение, удаление, поиск и фильтрация.

цитата:

Скачать

 Отправлено: 14.05.07 15:02. Заголовок: Re:

NE N10

Эта программа работает с элементарной нейронной сетью (искусственный разум).

Смысл ее работы заключается в поиске наименьшей общей ошибки в выходных данных.
На входе подаются входные данные -> программа выстраивает провежуточные веса по методу Розенблатта с обоих сторон промежуточного слоя и выводит выходные данные. -> далее по методу Видроу-Хоффа вычисляет общую ошибку и если она меньше или ровна ошибке в 0,05 то выдает ответ, в противном случае все действие повторяется.

Эта работа: пример обучения с учителем при методе обратного распространения ошибки.

При найденом ответе создается текстовый файл с ответом, промежуточными ошибками и весами.

цитата:

Скачать

 Отправлено: 15.05.07 16:42. Заголовок: Re:

NERV пишет:

цитата:

(искусственный разумом)

 Отправлено: 19.05.07 12:45. Заголовок: Re:

Согласен с Сорой... ну насмешил...

 Отправлено: 20.05.07 12:40. Заголовок: Re:

Fant@zeR пишет:

цитата:

Согласен с Сорой... ну насмешил...

А че смешного?
Я же написал "с элементарной нейронной сетью (искусственный разум)" - то есть мозгов как у таракана, ну может чуть меньше.

 Отправлено: 20.05.07 15:12. Заголовок: Re:

NERV пишет:

цитата:

разум)" - то есть мозгов как у таракана, ну может чуть меньше.

Момент истины - у таракана есть разум!

 Отправлено: 20.05.07 15:14. Заголовок: Re:

 Отправлено: 20.05.07 19:43. Заголовок: Re:

NERV пишет:

цитата:

"с элементарной нейронной сетью (искусственный разум)"

Слыш... канчай... я уж патсталом...

 Отправлено: 21.05.07 20:24. Заголовок: Re:

 Отправлено: 12.06.07 13:34. Заголовок: Re:

NE редактор

Эта программа является модификацией стандартного блокнота. Скорее усовершенствованным.

Возможности:

Открытие и сохранение форматов:

*.txt

*.rtf (частично)

Манипуляции с текстом:

Все стандартные возможности блокнота плюс:

Зачеркнутый текст

Очистить формат

Изменение регистра букв

Дополнительная функция открытия документа в безопасном режиме, т.е. документ только читается и не изменяется. Используется эта возможность при чтении документов занятых и используемых другими приложениями, так как фактически документ не открывается, а читается виртуально. (патент)

цитата:

Скачать

 Отправлено: 12.06.07 20:10. Заголовок: Re:

NERV пишет:

цитата:

так как фактически документ не открывается, а читается виртуально. (патент)

Является результатом неудачного косяка

 Отправлено: 12.06.07 22:55. Заголовок: Re:

Sora пишет:

цитата:

Является результатом неудачного косяка

К сожалению это был не косяк, а заранее задуманый ход.

В delphi есть такой класс TMemoryStream - очень занимательный.

В последующем буду часто его использовать.

 Отправлено: 13.06.07 12:42. Заголовок: Re:

А для чего он еще подойдет?

 Отправлено: 13.06.07 19:57. Заголовок: Re:

Sora пишет:

цитата:

А для чего он еще подойдет?

Я вижу человека не любящего читать HELP, хотя я тебя понимаю, потому что сам его читать не люблю.
В принцепе он подойдет ко всему, что можно нафантазировать:
Работа с текстом, изображением, экраном (для тебя) ...

Короче ограничивается перечисление твоей фантазией.