Accueil > > > RÉCUPÉRER LE KBID DES PATCHS CORRECTIFS INSTALLÉS SUR UNE MACHINE NT
RÉCUPÉRER LE KBID DES PATCHS CORRECTIFS INSTALLÉS SUR UNE MACHINE NT
Information sur la source
Description
Permet de détecter rapidement si un patch a oui ou non besoin d'être installé. Par extension, sachez contre quoi vous êtes protégés. A défaut, contre quoi vous devez blinder votre PC. Les KB apparaissent en guise d'informations de désinstallation. Si Windows "masque" ces modules, ici, je les récupère. Pour plus d'information sur un patch N°WXYZ, regardez le lien: http://support.microsoft.com?kbid=WXYZ
Source
- uses Classes, Registry;
-
- procedure GetKBid(KBList:TStrings; Simplified:boolean);
- function IDK(Chain:string):boolean;
- var idx : integer;
- begin
- Result:=true;
- for idx:=1 to Length(Chain) do
- Result:=Result and (Chain[idx] in ['0'..'9']);
- end;
- var i : integer;
- begin
- KBList.Clear;
- with TRegistry.Create do
- try
- RootKey:=HKEY_LOCAL_MACHINE;
- if OpenKey('Software\Microsoft\Windows\CurrentVersion\Uninstall\',false) then
- begin
- GetKeyNames(KBList);
- for i:=KBList.Count-1 downto 0 do
- if ((UpperCase(Copy(KBList[i],1,2))<>'KB') or (not IDK(Copy(KBList[i],3,Length(KBList[i]))))) then
- KBList.Delete(i);
- CloseKey;
- end;
- if Simplified then
- for i:=0 to KBList.Count-1 do
- KBList[i]:=Copy(KBList[i],3,Length(KBList[i]));
- finally
- Free;
- end;
- end;
-
- procedure TForm1.FormCreate(Sender: TObject);
- begin
- GetKBid(ListBox1.Items,true);
- ListBox1.Items.Sort;
- end;
uses Classes, Registry;
procedure GetKBid(KBList:TStrings; Simplified:boolean);
function IDK(Chain:string):boolean;
var idx : integer;
begin
Result:=true;
for idx:=1 to Length(Chain) do
Result:=Result and (Chain[idx] in ['0'..'9']);
end;
var i : integer;
begin
KBList.Clear;
with TRegistry.Create do
try
RootKey:=HKEY_LOCAL_MACHINE;
if OpenKey('Software\Microsoft\Windows\CurrentVersion\Uninstall\',false) then
begin
GetKeyNames(KBList);
for i:=KBList.Count-1 downto 0 do
if ((UpperCase(Copy(KBList[i],1,2))<>'KB') or (not IDK(Copy(KBList[i],3,Length(KBList[i]))))) then
KBList.Delete(i);
CloseKey;
end;
if Simplified then
for i:=0 to KBList.Count-1 do
KBList[i]:=Copy(KBList[i],3,Length(KBList[i]));
finally
Free;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
GetKBid(ListBox1.Items,true);
ListBox1.Items.Sort;
end;
Conclusion
Vous pouvez toujours aller visiter http://altert.family.free.fr/
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Detecter touches du clavier [ par sebrs1 ]
salutj'ai un ptit probleme en delphi en esperant que vous pourrez m'aidersavez vous comment détécter les touche du claviers appuyées depuis n'importe
Detecter et empecher une erreur de se produire [ par Millenius ]
Voila mon prbJ'utilise un protocole UDP pour interoger des serveurs distants. Ils me répondent, et j'affiche le résultat. Jusqu'a la pas de prble seul
detecter connexion internet [ par eedy31 ]
salut a tous!j'ai juste une petite question:quelqu'un saurait t'il comment je pourrait faire pour savoir si la connexion internet est active ou pas av
CS-Bar [ par koko ]
Bon d'abord je ne sais pas ou je dois mettre ceci...alors, je n'arrive pas à installé la CS-Bar... il me dit que certain de mes fichiers sont perimés
Detecter flash Player dans delphi ?? [ par Fredelphi ]
Bonjour,J'ai fait une appli avec des swf.J'ai d'ailleurs utilisé les sources pour lire un swf sur ce site.Comment faire pour pouvoir détecter si le fl
detecter une image [ par takwak ]
Bonjour à tous ,je souhaiterais détecter sur l'écran si une image bmp (stockée sur disque ) est présente.Un exemple me serait bien utile.Merci d'avanc
Patch pour Delphi 6 ne s'installe pas [ par Delphiprog ]
J'ai téléchargé le dernier patch (mars 2003) pour Delphi 6 entreprise français et, à l'installation, il ne détecte pas correctement ma version de Delp
Microsoft Agent [ par sisi231 ]
SISI231J'ai besoin d'aide avec microsoft agent :comment assurer la portaébilité d'un programme microsoft agent car je l'ai installé sur mon ordinateur
detecter un evenement souris via Tapplication? [ par mcguffin ]
bonjour je cherche un moyen pour que mon application detecte que le bouton de la souris a été relaché.je ne veux pas passer par les composants, car je
création d'un executable apartire de mon patch maker [ par MaXoR ]
Merci pour vos message mais se que je veux dire sais que je sais pas comment faire pour que mon patch maker crée unexecutable pour aler modifier des b
|
Derniers Blogs
UNE JOLIE-HORLOGE ET PAS QU'UN PEU !UNE JOLIE-HORLOGE ET PAS QU'UN PEU ! par neodante
Pour les possesseurs d'iPhone, ça y est Bijin Tokei - qui se traduit littéralement en Français par " Jolie Horloge " - est arrivé et GRATUITEMENT s'il vous plaît ! Après la version Tokyo, Hokkaido, night club, racing, Gal, "pour les mademoiselles'", . voi...
Cliquez pour lire la suite de l'article par neodante TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICESTECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice
Animé par: Gaetan Bouveret et Julien Chomarat Business Connectivity Services (BCS) est dans SharePoint 2010 la version 2 de Business Data Catalog (BDC dans SharePoint 2007). Il s'agit de la solution permettant de visualiser des données provenan...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion
Comme de nombreux geek, je suis un grand amateur de série TV et je rate régulièrement des épisodes de mes séries préférés. Une solution s'offre à vous avec ce merveilleux site : Tv Gorge - www.tvgorge.com Moteur de recherche à l'appui, vous pouvez ...
Cliquez pour lire la suite de l'article par orion TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Vincent Bellet et Baptiste Giraudier La BI dans SharePoint 2010, Les nouveaux services d'application dans SP2010 et SQL Server Reporting services 2008 R2. La BI dans SharePoint est généralisée pour tous afin de permettre à tous les coll...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|