Delphi

Мои листинги программ на Delphi которые возможно расширят ваши знания и помогут вам в дальнейшем изучении Delphi.

Delphi. Ставим программу в автозапуск

7 Октябрь 2007, Mr.Tryboi, Промотров: 1 424, Категории: Delphi

Захотелось поставить свою новую программу, написанную на Delphi, в автозагрузку. ну как полагается в больших программах сделать кнопочку запускать при запуске. Лично я сделал это через запись в Windows реестр. Для примера я назвал программу AUTORUN.exe, которая должна...

Delphi функция которая открывает exe-приложение с формы

5 Май 2007, Mr.Tryboi, Промотров: 1 605, Категории: Delphi

В свое время долго искал как можно по нажатию кнопки запустить exe-приложение, и вот наконец то, пользуйтесь WinExec(Pchar('D:\Program.exe'),sw_Show);

Сохраняем параметры нашей программы в реестре

15 Январь 2007, Mr.Tryboi, Промотров: 1 109, Категории: Delphi

Не так давно я писал о сохранении и чтении параметров из Windows рееста. С помощью этого я научил свои программы сохранить настройки пользователя и руководствоваться ими. Этот простой пример в котором мы будем запоминать размеры и положение формы. Указываем что будем...

Пример работы с ProgressBar в Delphi

14 Январь 2007, Mr.Tryboi, Промотров: 3 348, Категории: Delphi

Простой пример, который покажет как можно заставить ProgressBar показать загрузку от 0 до 100%. Ставим на форму ProgressBar1, Timer1, BitBtn1. На форму поставте: ProgressBar1 Timer1(Interval:=10) BitBtn1 Листинг программы: procedure TForm1.Timer1Timer(Sender: TObject); begin ProgressBar1.Position := ProgressBar1.Position +1; if ProgressBar1.Position >=...

Создать папку средствами Delphi

13 Январь 2007, Mr.Tryboi, Промотров: 971, Категории: Delphi

Листинг программы на Delphi которая создает папку на компьютере. function CreateDir(const Dir: string): Boolean;   procedure TForm1.Button1Click(Sender: TObject); begin if createdir('D:\Papka') = true then showmessage('yes') else showmessage('not'); end; См. также: Создаем скрытый файл с помощью...

Скрыть панель Пуск средствами Delphi

12 Январь 2007, Mr.Tryboi, Промотров: 845, Категории: Delphi

Delphi предоставил нам возможность скрывать или показывать панель пуска. Ничего сложного, всего две строчки и готово и две функции SW_HIDE и SW_SHOWNORMAL. Скрыть панель Пуска var hTaskBar:THandle; begin hTaskbar:=FindWindow('Shell_TrayWnd',Nil); ShowWindow(hTaskBar,SW_HIDE); end; Показать панель...