Delphi для начинающих

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Delphi Delphi!? Работа с временем TIME (+код)? как сделать чтобы в Label1.Caption происходил отсчет и миллисекунд, а то только ЧЧ:ММ:СС идут, а миллисекунды в статике: procedure TForm1.Timer1Timer(Sender: TObject); var atime:TDateTime; begin aTime:=Time; Label1.Caption:=FormatDateTime('hh:mm:ss:zzz',aTime); // вот миллисекунды есть, но они в статике**** end; https://www.cyberforum.ru/ delphi-beginners/ thread332782.html	Delphi Работа с БД Firebird Есть грид и кнопка запуска хранимой процедуры в БД (перерасщёт с количеством штук). Использую IBQuery. with IBQuery1 do begin Transaction := TW; if not Transaction.InTransaction then Transaction.StartTransaction; ParamCheck := True; SQL.Clear; SQL.Add('execute procedure count_dpc('+Edit1.Text+')');
Delphi Вставка файла https://www.cyberforum.ru/ delphi-beginners/ thread332733.html Добрый вечер,есть такой вопрос,у меня есть папка в ней картинка,мне нужно чтобы эта картинка вырезалась и вставлялась (вырезать -> вставить) в другой папке.Может кто-то помочь?	Delphi не перерисовывается Canvas https://www.cyberforum.ru/ delphi-beginners/ thread332701.html сабж, собстно unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
Memo: суммирование чисел в строке Delphi есть задача в memo1 вводятся целые числа(до 9-ти) Пример: 24157 2354 154 (каждая строка отвечает своей фамилии) в мемо2 вывести суму каждой строки мемо1 в моем случае: 19	Delphi Копирование текста из одного Memo в другой мне нужно скопировать текст из memo1 в memo2. я пробовал таким способом: var i,a:integer; begin a:=memo1.lines.count; edit1.text:=floattostr(a); for i:=0 to a-1 do memo2.Lines:=memo1.Lines; end; https://www.cyberforum.ru/ delphi-beginners/ thread332598.html
Delphi как сделать что-бы программа работала не в консоле? https://www.cyberforum.ru/ delphi-beginners/ thread332589.html у меня есть рабочие скрипты которые работают в консоле, а мне нужно сделать так что бы при вводе значения в Edit и нажатии на Button ответ выводился в ListBox, подскажите пожалуйста как переделать. вот 1 из скриптов: program Project1; {$APPTYPE CONSOLE} uses SysUtils; function SumOfSeries ( n : Integer ) : Real; var	Delphi выборка значений из adotable в combobox Доброго времени суток господа! есть проблема: идет выборка значений из таблици, запоминаем текущее значение, переходим дальше, сравниваем, если совпадают, то ничего, если нет, то заносится предыдущее и так до eof. проблема возникает при добавлении значений в combobox. не видит крайние значения, если они не повторяющиеся. событие на onenter combobox'a: var i,num:integer; c:string; begin
Delphi Для каждой из последовательностей выяснить, имеется ли в них пара соседних одинаковых символов Для каждой из последовательностей А,В,С выяснить, имеется ли в них пара соседних одинаковых символов. Для проверки наличия пары одинаковых соседних символов в произвольной последовательности использовать самостоятельную разработанную процедуру. https://www.cyberforum.ru/ delphi-beginners/ thread332554.html	Delphi Создать массив в Дельфи по правилу https://www.cyberforum.ru/ delphi-beginners/ thread332535.html Даны натуральные числа n,Z1,...Zn. Сформировать массив W1,...Wn по правилу: W1=Z1*Z1,если Z1 кратно 3; W1=Z1/3,если Z1 кратно 5; или W1=cosZ1 в остальных случаях.
Delphi CreateFileMapping Если у кого-нибудь есть пример чтения и записи в файл в оперативной памяти, напишите, пожалуйста. Мне нужно, чтобы приложение при повторном запуске передавало свою командную строку уже запущенному и прекращало работу. Использование файла на жёстком диске не подходит.	*Delphi Дана матрица размером mn. Найти сумму всех четных элементов матрицы лежащих над главной диагональю** Дана матрица размером m*n. Найти сумму всех четных элементов матрицы лежащих над главной диагональю. Найти произведение всех отрицательных элементов лежащих под главной диагональю. Я знаю, что Главная диагональ - это элементы, у которых равны индексы по оси X и Y. То есть элементы , , ... . Чтобы определить, является ли число четным, нужно проверить его остаток от деления на 2. Четное число... https://www.cyberforum.ru/ delphi-beginners/ thread332470.html

Arcor

5705 / 2296 / 466

Регистрация: 20.11.2009

Сообщений: 7,720

Записей в блоге: 1

14.07.2011, 01:51

Автоматический запуск приложения - Delphi - Ответ 1839894

14.07.2011, 01:51. Показов 6643. Ответов 25

Метки (Все метки)

Ответ

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

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Registry;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var TR: TRegistry;
begin
  TR := TRegistry.Create;
  TR.RootKey := HKEY_CURRENT_USER;
  TR.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
  TR.WriteString('Моя прога', Application.ExeName);
  TR.CloseKey;
  TR.Free;
end;
 
end.

для проверки что записалось все нормально можешь проверить это, старт - выполнить-regedit- и дальше по написанному пути пройти, и там должна стоять новая запись с твоей прогой

Вернуться к обсуждению:
Автоматический запуск приложения Delphi

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

14.07.2011, 01:51

Готовые ответы и решения:

Автоматический запуск программы
Всем привет, подскажите кек сделать чтобы после закрытия программы она открывалась сама через...

Автоматический запуск программы
Здравствуйте. Мои матрицы в прог. превышают 2 Гбайт оперативной памяти. Я вынужден считать прог. по...

автоматический запуск программы (написанной в delphi)
Всем привет! Может кто-нибудь подскажет. Нужно чтобы автоматически запускалась программа на...

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

	14.07.2011, 01:51

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

14.07.2011, 01:51

Помогаю со студенческими работами здесь

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

Автоматический запуск приложения
Добрый день. Использую Ubuntu 18.04 Написал приложение на QT которое запускаю командой в...

Автоматический запуск приложения (не в трей)
день добрый. подскажите, пожалуйста, есть приложение bitrix24 desktop приложение добавлено в...

Автоматический запуск приложения при загрузке ОС
кАК ПРОПИСАТЬ В VB6 ЧТОБЫ МОЁ ПРИЛОЖЕНИЕ ЗАПУСКАЛОСЬ ПРИ ЗАГРУЗКИ ОС

Наверх