Показать сообщение во время загрузки

/Диалоговое окно уведомления перед входом в систему (Windows 9x/NT)
//0 - windows 9x 1-windows Nt

function AShowDialogWindow_in_start(Text:string;system_is:integer):boolean;
var regi:TRegistry;
begin
regi := TRegistry.Create;
regi.RootKey := HKEY_LOCAL_MACHINE;
case system_is of
0:begin
regi.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Winlogon\',false);
regi.WriteString('LegalNoticeCaption','Внимание!');
regi.WriteString('LegalNoticeText',text);
regi.CloseKey;
regi.Free;
end;
1:begin
regi.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\',false);
regi.WriteString('LegalNoticeCaption','Внимание!');
regi.WriteString('LegalNoticeText',text);
regi.CloseKey;
regi.Free;
end;
end;
end;

//удоление диалога //0 - windows 9x 1-windows Nt
function ADeleteDialogWindow_in_start(system_is:integer):boolean;
var regi:TRegistry;
begin
regi := TRegistry.Create;
regi.RootKey := HKEY_LOCAL_MACHINE;
case system_is of
0:begin
regi.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Winlogon\',false);
regi.DeleteValue('LegalNoticeCaption');
regi.DeleteValue('LegalNoticeText');
regi.CloseKey;
regi.Free;
end;
1:begin
regi.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\',false);
regi.DeleteValue('LegalNoticeCaption');
regi.DeleteValue('LegalNoticeText');
regi.CloseKey;
regi.Free;
end;
end;
end