VPF::Помогите с реестром. - Форум программистов

InseR

Дата 4.8.2007, 15:22 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 9.7.2007

Репутация: нет
Всего: нет

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

aktuba

Дата 4.8.2007, 15:55 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 7
Всего: 38

Цитата

Приплыли... А сам подумать или поискать - никак???

--------------------

ALeXandrK

Дата 4.8.2007, 16:08 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 342
Регистрация: 31.1.2007
Где: Санкт-Петербург

Репутация: 1
Всего: 6

Из DRKB:

Код


procedure SetAutorun(aProgTitle,aCmdLine: string; aRunOnce: boolean ); 

var 

hKey: string; 

hReg: TRegIniFile; 

begin 

if aRunOnce then hKey := 'Once' 

else 

   hKey := ''; 

 

hReg := TRegIniFile.Create( '' ); 

hReg.RootKey := HKEY_LOCAL_MACHINE; 

hReg.WriteString('Software\Microsoft\Windows\CurrentVersion\Run' 

                 + hKey + #0, 

                 aProgTitle, 

                 aCmdLine ); 

hReg.destroy; 

end;

Код


{ 

There's a RunOnce key in the registry. 

When a user logs on, the programs in the run-once list are run just once, 

and then the entries will be removed. 

The "runonce" key is normally used by setup programs to install 

software after a machine has been rebooted. 

}

 

{ 

Jede Anwendung, die im Schlьssel RunOnce aufgefьhrt ist, wird 

beim nдchsten Windowsstart ausgefьhrt und anschlieЯend wieder 

aus der Registry entfernt. Betrifft Anwendungen, die nur einmal 

mit Windows gestartet werden sollen. Normalerweise wird dieser Schlьssel 

von Setup Programmen genutzt, um nach einem Neustart mit der Installation 

fortzufahren. 

}

 

 

// Add the application to the registry... 

// Anwendung in die Registry aufnehmen... 

 

procedure DoAppToRunOnce(RunName, AppName: string);

var

  Reg: TRegistry;

begin

  Reg := TRegistry.Create;

  with Reg do

  begin

    RootKey := HKEY_LOCAL_MACHINE;

    OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce', True);

    WriteString(RunName, AppName);

    CloseKey;

    Free;

  end;

end;

 

// Check if the application is in the registry... 

// Prьfen, ob Anwendung in der Registry vorhanden ist... 

 

function IsAppInRunOnce(RunName: string): Boolean;

var

  Reg: TRegistry;

begin

  Reg := TRegistry.Create;

  with Reg do

  begin

    RootKey := HKEY_LOCAL_MACHINE;

    OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce', False);

    Result := ValueExists(RunName);

    CloseKey;

    Free;

  end;

end;

 

// Remove the application from the registry... 

// Anwendung aus der Registry entfernen... 

 

procedure DelAppFromRunOnce(RunName: string);

var

  Reg: TRegistry;

begin

  Reg := TRegistry.Create;

  with Reg do

  begin

    RootKey := HKEY_LOCAL_MACHINE;

    OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce', True);

    if ValueExists(RunName) then DeleteValue(RunName);

    CloseKey;

    Free;

  end;

end;

 

{ 

Applications under the key "Run" will be executed 

each time the user logs on. 

{ 

 

{ 

Jede Anwendung, die im Schlьssel Run aufgefьhrt ist, wird beim 

jedem Windowsstart ausgefьhrt. Betrifft Anwendungen, die immer 

mit Windows gestartet werden sollen... 

}

 

 

// Add the application to the registry... 

// Anwendung in die Registry aufnehmen... 

 

procedure DoAppToRun(RunName, AppName: string);

var

  Reg: TRegistry;

begin

  Reg := TRegistry.Create;

  with Reg do

  begin

    RootKey := HKEY_LOCAL_MACHINE;

    OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);

    WriteString(RunName, AppName);

    CloseKey;

    Free;

  end;

end;

 

// Check if the application is in the registry... 

// Prьfen, ob Anwendung in der Registry vorhanden ist... 

 

function IsAppInRun(RunName: string): Boolean;

var

  Reg: TRegistry;

begin

  Reg := TRegistry.Create;

  with Reg do

  begin

    RootKey := HKEY_LOCAL_MACHINE;

    OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False);

    Result := ValueExists(RunName);

    CloseKey;

    Free;

  end;

end;

 

// Remove the application from the registry... 

// Anwendung aus der Registry entfernen... 

 

procedure DelAppFromRun(RunName: string);

var

  Reg: TRegistry;

begin

  Reg := TRegistry.Create;

  with Reg do

  begin

    RootKey := HKEY_LOCAL_MACHINE;

    OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);

    if ValueExists(RunName) then DeleteValue(RunName);

    CloseKey;

    Free;

  end;

end;

 

// Examples, Beispiele 

 

// Add app, Anwendung aufnehmen... 

DoAppToRun('Programm', 'C:\Programs\XYZ\Program.exe');

 

// Is app there ? Ist Anwendung vorhanden? 

if IsAppInRun('Programm') then...

 

// Remove app, Anwendung entfernen 

DelAppFromRun('Programm');

А вообще конечно очень нехорошо задавать такие вопросы.
Форум - это не бесплатная рабочая сила, а помощь в ситуациях, когда самому ну никак
не разобраться или совет нужен опытных людей.

В следующий раз сразу пиши... "Плиз напишите мне программу...". smile

Тема называется: "Помогите с регистром" - причем тут регистр, тему переименуй smile

Это сообщение отредактировал(а) ALeXandrK - 4.8.2007, 16:37

--------------------

Богат не/ни тот, у кого много, а тот, кому хватает

EvilsInterrupt

Дата 4.8.2007, 16:46 (ссылка)

(нет голосов)

Загрузка ...

Executables research

Профиль
Группа: Завсегдатай
Сообщений: 1019
Регистрация: 14.7.2007
Где: Железнодорожный, МО, Россия

Репутация: нет
Всего: 9

InseR,

ЗЫ: в интернете есть зае..., сорри кульный мануал: "Как правильно задававать вопрос", я его раз в месяц перечитываю. В итоге прихожу к тому, что либо вопросы отпадают сами, либо быстрее выражаю суть, из-за чего люди быстрее помогают в деле ;)

--------------------

про реверсинг, вроде чтото даже интересно

Sanchezzz

Дата 4.8.2007, 20:16 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1670
Регистрация: 19.11.2006
Где: Voronezh

Репутация: 1
Всего: 60

в uses inifiles;

по событию на создание формы.

Код


win:= tinifile.create('win.ini');
win.readstring ('windows','run',pres); //Поглядим, что там из win.ini запускается 
if pres<> Application.ExeName then//Если не мы, то... :crazy 
win.writestring('windows','run',application.exename); //Теперь будем мы  :search 
win.free;

совет скачай DBK b DelphiWorld smile

Это сообщение отредактировал(а) Alexeis - 4.8.2007, 22:02

--------------------

Понравился ответ "+" по репе, не забываем закрывать тему, заказы в LS.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »