44 lines
805 B
Plaintext
44 lines
805 B
Plaintext
unit DJumpListAnal;
|
|
|
|
interface
|
|
|
|
uses
|
|
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
|
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
|
|
|
|
type
|
|
TDlgJumpListAnal = class(TForm)
|
|
Button1: TButton;
|
|
Memo1: TMemo;
|
|
procedure Button1Click(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
DlgJumpListAnal: TDlgJumpListAnal;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Tocsg.Files;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TDlgJumpListAnal.Button1Click(Sender: TObject);
|
|
var
|
|
sPath: String;
|
|
begin
|
|
sPath := 'C:\Users\kku\AppData\Roaming\Microsoft\Windows\Recent\AutomaticDestinations\5f7b5f1e01b83767.automaticDestinations-ms';
|
|
|
|
|
|
Memo1.Lines.Clear;
|
|
|
|
Memo1.Lines.Add(GetLastOpenFileFromJumpListAuto(sPath));
|
|
end;
|
|
|
|
end.
|