CD

0

Jka wysunąć i wsunąc CD (albo dvd wystko jedno)? I jak dodać proga do rejestru?

0

odp na pierwsze pytanie masz w FAQ-u a drugiego nie rozumiem. dodać do rejestru w jakim sensie ?? Autostart, konfig, rozszerzenie ??

Np dodanie do rejestru ścieżki do proga:

uses Registry;

var rejestr:TRegistry;
begin
  rejestr:=TRegistry.Create;
  rejestr.RootKey:=HKEY_LOCAL_MACHINE;
  rejestr.OpenKey('Software\NazwaTwojegoSoftware\NazwaProgra',true);
  rejestr.WriteString('',ExtractFileDir(ParamStr(0)));
  rejestr.CloseKey;
  rejestr.Free;
end;

a odczytanie potem:

uses Registry;

var rejestr:TRegistry;
begin
  rejestr:=TRegistry.Create;
  rejestr.RootKey:=HKEY_LOCAL_MACHINE;
  rejestr.OpenKey('Software\NazwaTwojegoSoftware\NazwaProgra',true);
  ShowMessage('Program zainstalowany jest pod '+rejestr.ReadString(''));
  rejestr.CloseKey;
  rejestr.Free;
end;
0
  1. Żeby się włĄczał po starcie
0
uses Registry;

var rejestr:TRegistry;
begin
  rejestr:=TRegistry.Create;
  rejestr.RootKey:=HKEY_LOCAL_MACHINE;
  rejestr.OpenKey('Software\Microsoft\CUrrentVersion\Run',true);
  rejestr.WriteString('nazwa_proga', Application.ExeName));
  rejestr.CloseKey;
  rejestr.Free;
end;

ps. pisze się włączał !!

0

Milka - Pomyliłeś ścieżke!!! tamto stworzy zupelnie nowy klucz, a nie zadziala.

uses Registry;

var rejestr:TRegistry;
begin
  rejestr:=TRegistry.Create;
  rejestr.RootKey:=HKEY_LOCAL_MACHINE;//albo HKEY_CURRENT_USER wlacza sie tylko dla usera ktory to tworzy
  rejestr.OpenKey('Software\Microsoft\Windows\CUrrentVersion\Run',true);
  rejestr.WriteString('nazwa_proga', Application.ExeName));
  rejestr.CloseKey;
  rejestr.Free;
end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0