Jka wysunąć i wsunąc CD (albo dvd wystko jedno)? I jak dodać proga do rejestru?
0
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
Ad 1 zobacz
<url>www.swissdelphicenter.ch/torry/showcode.php?id=124</url>
0
- Ż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;