Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.02.06;
Скачать: [xml.tar.bz2];

Вниз

Как определить, запущено ли приложение впервые или нет?   Найти похожие ветки 

 
Vasya.ru ©   (2005-01-24 14:26) [0]

Необходимо при первом запуске программы вывести окно настроек. Так как определить, чт это первый запуск на данном компьютере?


 
Vasya.ru ©   (2005-01-24 14:32) [1]

изменю вопрос: как проверить ключ реестра на существование?


 
Lord Zmiy ©   (2005-01-24 14:33) [2]

импровизируй ... сделай ини файл и храни в нем к примеру start если = 1 то запускалось если = 0 то нет


 
Ega23 ©   (2005-01-24 14:35) [3]

TRegistry + F1


 
Cosinus ©   (2005-01-24 14:36) [4]

Что то типа того...
function IsAppFirst(RunName: string): Boolean;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  with Reg do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey("Software\MyProg", False);
    Result := ValueExists(RunName);
    CloseKey;
    Free;
  end;
end;


 
Weare   (2005-01-24 14:39) [5]

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



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.02.06;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.044 c
1-1106561840
pavel_guzhanov
2005-01-24 13:17
2005.02.06
Не освобождается память при завершении потока


14-1105818338
DeadMeat
2005-01-15 22:45
2005.02.06
Неубиваемые процессы


6-1101039444
Vasiliy
2004-11-21 15:17
2005.02.06
CGI и Delphi


6-1101321396
Ken
2004-11-24 21:36
2005.02.06
Событие, извещающее о приходе данных в ClientSocket


14-1105705208
Ega23
2005-01-14 15:20
2005.02.06
Пятничные задачки





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский