67 lines
1.2 KiB
Plaintext
67 lines
1.2 KiB
Plaintext
unit DWinUpScanMain;
|
|
|
|
interface
|
|
|
|
uses
|
|
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
|
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
|
|
|
|
type
|
|
TDlgWinUpScanMain = class(TForm)
|
|
btnScan: TButton;
|
|
mmInfo: TMemo;
|
|
btnScan2: TButton;
|
|
procedure btnScanClick(Sender: TObject);
|
|
procedure btnScan2Click(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
DlgWinUpScanMain: TDlgWinUpScanMain;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Tocsg.WinInfo, Tocsg.Safe;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TDlgWinUpScanMain.btnScan2Click(Sender: TObject);
|
|
var
|
|
UpList: TStringList;
|
|
i: Integer;
|
|
begin
|
|
mmInfo.Clear;
|
|
|
|
Guard(UpList, TStringList.Create);
|
|
GetWinUpdateInstList(UpList);
|
|
|
|
for i := 0 to UpList.Count - 1 do
|
|
mmInfo.Lines.Add(UpList[i]);
|
|
|
|
mmInfo.Lines.Add('');
|
|
mmInfo.Lines.Add('³¡');
|
|
end;
|
|
|
|
procedure TDlgWinUpScanMain.btnScanClick(Sender: TObject);
|
|
var
|
|
UpList: TStringList;
|
|
i: Integer;
|
|
begin
|
|
mmInfo.Clear;
|
|
|
|
Guard(UpList, TStringList.Create);
|
|
GetWinUpdateAbleList(UpList);
|
|
|
|
for i := 0 to UpList.Count - 1 do
|
|
mmInfo.Lines.Add(UpList[i]);
|
|
|
|
mmInfo.Lines.Add('');
|
|
mmInfo.Lines.Add('³¡');
|
|
end;
|
|
|
|
end.
|