I dette særtema om aspekter af AI ser vi på skiftet fra sprogmodeller til AI-agenter, og hvordan virksomheder kan navigere i spændet mellem teknologisk hastighed og behovet for menneskelig kontrol.
procedure MinProcedure; var Reg: TRegistry; Key: String; begin Reg := TRegistry.Create; Key := 'Software\Microsoft\Windows\CurrentVersion\Run';
Reg.RootKey := HKEY_CURRENT_USER; if Reg.KeyExists(Key) then begin Reg.OpenKey(Key,False); Reg.WriteString('MitProgram','"C:\Temp\MitProgram.Exe"'); end;
end; -------------------------
MitProgram og stien til MitProgram skal selvfølgelig erstattes af dit program :-)
altså under din "uses" tilføjer du 'registry'... nu kan du bruge TRegistry komponenten..
herefter laver du en variabel (Reg) af typen TRegistry..
Reg := TRegistry.Create; //creater en instans (reg) som vi kan arbejde med Key := 'Software\Microsoft\Windows\CurrentVersion\Run';
Reg.RootKey := HKEY_CURRENT_USER; //sætter rootkeyen til HKEY_CURRENT_USER så dine ændringer kun har indflydelse på den nuværende bruger.. man kan bruge HKEY_CURRENT_MACHINE hvis det skal gælde for alle brugerne
if Reg.KeyExists(Key) then //hvis key'en Software\Microsoft\Windows\CurrentVersion\Run findes så open den key
begin Reg.OpenKey(Key,False); //åbner keyen, skal ikke create den hvis den ikke findes i forvejen
Reg.WriteString('MitProgram','"C:\Temp\MitProgram.Exe"'); //skriver en streng ned i registreringsdatabasen unden den åbne/aktive key end;
når værdien ligger den loades dit program når windows starter.. dette har ikke noget med delphi at gøre, men sådan fungerer windows... alt det som ligger under Software\Microsoft\Windows\CurrentVersion\Run startes op sammen med windows.
Du kan også bare ligge en genvej i Start -> Programmer -> Start
Hilsen Michael
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.