Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
sProgTitle: Название для программы sCmdLine: Имя EXE файла с путем доступа bRunOnce: Запустить только один раз или постоянно при загрузке Windows
procedure
RunOnStartup(sProgTitle, sCmdLine : string; bRunOnce : boolean
);
var
sKey : string;
reg : TRegIniFile;
begin
if( bRunOnce )then sKey := 'Once'
else sKey := '';
reg := TRegIniFile.Create( '' );
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.WriteString(
'SoftwareMicrosoft'
+ 'WindowsCurrentVersionRun'
+ sKey + #0,
sProgTitle,
sCmdLine );
reg.Free;
end
;
// Например
RunOnStartup('Title of my program','MyProg.exe',False );
Примечание. Этот пример удобно использовать при написании деинсталляторов - добавить
однократный вызов деинсталлятора и запросить от пользователя перезагрузку. Этот
прием позволит безболезненно удалять DLL и им подобные файлы, которые обычном способом
удалить невозможно (они загружены в силу того, что использовались деинсталлируемой
программой или работают в момент деинсталляции).