Friday, August 25, 2006

spouštíme se při startu Windows

Některé aplikace je potřeba spustit již při startu systému, což ani dnes nebude problém.
Informace o tom, které to mají být jsou uvedeny v registrech, takže není těžké připsat i vlastní aplikaci:
Delphi:
procedure TForm1.Button1Click(Sender: TObject);var reg: TRegistry;begin reg := TRegistry.Create; try reg.RootKey := HKEY_LOCAL_MACHINE; reg.LazyWrite := false; reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionRun', false); reg.WriteString('My App', Application.ExeName); reg.CloseKey; finally reg.free; end;end;
C++ Builder:
void __fastcall TForm1::Button1Click(TObject *Sender){ TRegistry *reg; reg = new TRegistry; try { reg->RootKey = HKEY_LOCAL_MACHINE; reg->LazyWrite = false; reg->OpenKey("SoftwareMicrosoftWindowsCurrentVersionRun", false); reg->WriteString("My Application", Application->ExeName); reg->CloseKey(); } __finally { reg->Free(); }}