var
Reg: TRegistry;
begin
if CheckBox1.Checked=true then
begin
IBDataSet2.Edit;
DBEdit1.Text:='evet';
IBDataSet2.post;
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', True)
then Reg.WriteString('Programım','' + 'C:\Randevu\rdv.exe');
finally
Reg.CloseKey;
Reg.Free;
inherited;//otomatik başlat
end;
end;
if CheckBox1.Checked=False then
begin
IBDataSet2.Edit;
DBEdit1.Text:='hayır';
IBDataSet2.post;
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', True) then
begin
Reg.DeleteValue('Programım');
Reg.CloseKey;
end;
finally
Reg.Free;
inherited;
end; //otomatik başlatmayı kaldır
end;
end;
bilgisayar açıldığında interbase bağlantı hatası alıyorum exe çalışmıyor.Normalde projede bir sorun yok.Nasıl çözebilirim.xp d7 kullanıyorum.vista yada win7 de de bu kod çalışırmı.
