Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
deathNC
1892 / 1005 / 123
Регистрация: 08.12.2009
Сообщений: 2,792
Записей в блоге: 2
04.10.2011, 22:21 0

Настройки

04.10.2011, 22:21. Просмотров 1632. Ответов 31
Метки (Все метки)

Ответ

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function IsAutorun: Boolean;
var
  reg: TRegistry;
begin
  Result := false;
  reg := TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  If Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', false) then
    begin
      If reg.ValueExists('Proga') then
        Result :=  LowerCase(reg.ReadString('Proga')) = LowerCase(ParamStr(0));
      reg.CloseKey;
    end;
  reg.Free;
end;


Вернуться к обсуждению:
Настройки
1
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.10.2011, 22:21
Готовые ответы и решения:

Настройки конфигурации
Вообщем решил написать для себя программу, а заодно и для пользователей....

Настройки Memo
Подскажите как сделать так чтобы в Memo1 не возможно было удалить текст? только...

настройки пользывателя
Можно ли в делфи сделать примерно такое пользыватель входит под своим ником и...

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

настройки в делфи!
ребята кто может помоч! как создать окно настроек для своего проекта в делфи!!...

31
Другие темы раздела
Delphi Вычислить приближенные значения по формуле. http://www.cyberforum.ru/delphi-beginners/thread359124.html
Вычислить по интерполяционной формуле Лагранжа приближённые значения в узлах x=x+h/2, т.е. Ln(x+h/2), i=0..n-1 функцию y(x)=1/4*sin(x*x*x)+3*cos(x*x), где x принадлежит отрезку , n=6 Результат...
Delphi Упорядочить столбцы по убыванию 12) Дана целочисленная матрица. Для каждого столбца определить, сколько раз в нем меняется знак. Упорядочить столбцы по убыванию указанных характеристик.unit Unit1; interface uses Windows,... http://www.cyberforum.ru/delphi-beginners/thread359120.html
Как создать TList? Delphi
Всем привет. Задача такая есть записи к примеру об успеваемости студентов. type Student = record name:string; surname; clever: boolean; boy: boolean; end; Количество...
Delphi Бинарные деревья.
Нуждаюсь в помощи , кому не сложно помогите пожалуйста . Бинарные деревья. Hаписать функцию или пpоцедуpу, котоpая заменяет в деpеве T значения всех отpицательных элементов вершин на их...
Delphi ComboBox - проблемма http://www.cyberforum.ru/delphi-beginners/thread359072.html
Доброго времени суток! Возникла не большая проблемма. Работаю в Delphi не так давно. Проблемма в следующем: Имеется 3 combobox'a в 1 и 3 типы данных (integer, real), во 2 арифметическая операция...
Delphi Присвоение отрицательных значений в StringGrid-е Вопрос легкий для тех кто занимается программированием регулярно. В граничные строки и столбцы необходимо ввести значения. В моем варианте решения это задачи выходит ошибка Project XXX raised... подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru