MSOfficeのショートカットファイルのリンク先を知るには (ID：23468)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

こんにちわです。
ショートカットファイルはフォーマットが公開されてますので、
それを解析すれば取得可能です。
以前、未公開アプリ作成中に途中まで解析したものがあるのでお試しください。WindowsXp上では問題なく取得できています。
で、私から質問ですが、Fusaさんて、以前フサギコと名乗ってた方ですか？

uses 
  hShortCut

procedure TForm1.Button1Click(Sender: TObject);
var
  ShortCut:TShortCut;
begin
  ShortCut:=TShortCut.Create;
  ShortCut.LoadFromFile(Edit1.Text); //ショートカットファイルのパス
  Edit2.Text:=ShortCut.LinkPath; //リンク先の出力
  ShortCut.Free;
end;

-- hShortCut.pas --------------
unit hShortCut;

interface

uses
  Windows, SysUtils, Classes, ShlObj, ShellAPI;

type
  TShHeader = record
    hCode : array [0..3] of byte; // 4 bytes Always 4C 00 00 00 This is how windows knows it is a shortcut file
    GUID  : TGUID;                // 16 bytes GUID for shortcut files The current GUID for shortcuts. It may change in the future. 01 14 02 00 00 00 00 00 C0 00 00 00 00 00 46
    ShortcutFlags:DWORD;          // 1 dword Shortcut flags Shortcut flags are explained below
    TargetFileFlags:DWORD;        // 1 dword Target file flags Flags are explained below
    CreationTime:TFileTime;       // 1 qword Creation time
    LastAccessTime:TFileTime;     // 1 qword Last access time
    ModificationTime:TFileTime;   // 1 qword Modification time
    FileLength:DWORD;             // 1 dword File length The length of the target file. 0 if the target is not a file. This value is used to find the target when the link is broken.
    IconNo:DWORD;                 // 1 dword Icon number If the file has a custom icon (set by the flags bit 6), then this long integer indicates the index of the icon to use. Otherwise it is zero.
    ShwoWindowValue:DWORD;        // 1 dword Show Window the ShowWnd value to pass to the target application when starting it. 1:Normal Window 2:Minimized 3:Maximized
    Hotkey:DWORD;                 // 1 dword Hot Key The hot key assigned for this shortcut
    Reserved0:DWORD;              // 1 dword Reserved Always 0
    Reserved1:DWORD;              // 1 dword Reserved Always 0
  end;

TShellIDItem = record
    Length:WORD;
    DataType:WORD;
    data:array of byte;
    GUID:TGUID;
  end;

TShellIDList = record
    Length: WORD;
    data  : array of byte;
    path  : String;
    //ShellIDItems : array of TShellIDItem;
  end;

TFileLocationInfo = record
    Length:DWORD;                 // 1 dword This length value includes all the assorted pathnames and other data structures. All offsets are relative to the start of this section.
    OffsetBasicFileInfo:DWORD;    // 1 dword The offset at which the basic file info structure ends. Should be 1C.
    FileAvailable:DWORD;          // 1 dword File available on local volume (0) or network share(1)
    OffsetLocalVolume:DWORD;      // 1 dword Offset to the local volume table.
    OffsetBasePath:DWORD;         // 1 dword Offset to the base path on the local volume.
    OffsetNetwork:DWORD;          // 1 dword Offset to the network volume table.
    OffsetFinalPart:DWORD;        // 1 dword Offset to the final part of the pathname.
  end;

TLocalVolumeTable = record
    Length:DWORD;                 //1 dword Length of this structure including the volume label string.
    TypeOfVolume:DWORD;           //1 dword Type of volume (code below)
    VolumeSerialNumber:DWORD;     //1 dword Volume serial number
    OffsetVolumeName:DWORD;       //1 dword Offset of the volume name (Always 0x10)
    Path:array of char ;          //ASCIZ Volume label
  end;

TShortCut = class(TPersistent)
  private
    ShellItemIdIistPresent:boolean;
    TargetIsAFileOrDirectory:boolean;
    HasADescription:boolean;
    HasARelativePath:boolean;
    HasAWorkingDirectory:boolean;
    HasCommandLineArguments:boolean;
    HasACustomIcon:boolean;
    fItemIDList: PItemIDList;
    fLinkPath: WideString;
  public
    Handle      : HWND;
    Header      : TShHeader;
    ShellIDList : TShellIDList;
    FileLocationInfo:TFileLocationInfo;
    LocalVolumeTable:TLocalVolumeTable;
    procedure LoadFromFile(path:WideString);
    procedure ShellExe(AItemIDList: PItemIDList);
    property ItemIDList:PItemIDList read fItemIDList;
    property LinkPath:WideString read fLinkPath;
  end;

implementation

function SD(s:String):String;
var p:Integer;
begin
  p:=Pos(#0,s);
  p:=p-1;
  if p>=0 then
    Result:=copy(s,1,p)
    else
    Result:=s;
end;

function ByteFlugIn(x:DWORD; Index:byte) : boolean;
const
  cIntBitWidth = sizeOf(Byte)*8;
var
  i : Byte;
begin
  Result:= False;
  for i:=cIntBitWidth downto 1 do begin
    if i=cIntBitWidth - Index then
    begin
      Result:= ((x And 1) = 1);
      exit;
    end;
    x := x shr 1;
  end;
end;

function GetPath(ItemIDList:PItemIDList):String;
var path:String;
begin
  SetLength(Path,MAX_PATH);
  SHGetPathFromIDList(ItemIDList,PChar(Path));
  Result:=SD(path);
end;

{ TShortCut }

procedure TShortCut.LoadFromFile(path: WideString);
var
  mStream:TMemoryStream;
begin
  mStream:=TMemoryStream.Create;

mStream.LoadFromFile(path);
  mStream.Position:=0;
  //Header
  mStream.Read(Header.hCode,4);
  mStream.Read(Header.GUID,Sizeof(Header.GUID));
  mStream.Read(Header.ShortcutFlags,Sizeof(Header.ShortcutFlags));

ShellItemIdIistPresent   :=ByteFlugIn(Header.ShortcutFlags,0);
    TargetIsAFileOrDirectory :=ByteFlugIn(Header.ShortcutFlags,1);
    HasADescription          :=ByteFlugIn(Header.ShortcutFlags,2);
    HasARelativePath         :=ByteFlugIn(Header.ShortcutFlags,3);
    HasAWorkingDirectory     :=ByteFlugIn(Header.ShortcutFlags,4);
    HasCommandLineArguments  :=ByteFlugIn(Header.ShortcutFlags,5);
    HasACustomIcon           :=ByteFlugIn(Header.ShortcutFlags,6);

mStream.Read(Header.TargetFileFlags,Sizeof(Header.TargetFileFlags));
  mStream.Read(Header.CreationTime,Sizeof(Header.CreationTime));
  mStream.Read(Header.LastAccessTime,Sizeof(Header.LastAccessTime));
  mStream.Read(Header.ModificationTime,Sizeof(Header.ModificationTime));

mStream.Read(Header.FileLength,Sizeof(Header.FileLength));
  mStream.Read(Header.IconNo,Sizeof(Header.IconNo));
  mStream.Read(Header.ShwoWindowValue,Sizeof(Header.ShwoWindowValue));
  mStream.Read(Header.Hotkey,Sizeof(Header.Hotkey));
  mStream.Read(Header.Reserved0,Sizeof(Header.Reserved0));
  mStream.Read(Header.Reserved1,Sizeof(Header.Reserved1));

//ShellIDList
  if ShellItemIdIistPresent then
  begin
    mStream.Read(ShellIDList.Length ,Sizeof(ShellIDList.Length));
    SetLength(ShellIDList.data,ShellIDList.Length);
    mStream.Read(ShellIDList.data[0],ShellIDList.Length);
    fItemIDList:=@ShellIDList.data[0];
    fLinkPath:=GetPath(fItemIDList);
  end;
  mStream.Free;

end;

procedure TShortCut.ShellExe(AItemIDList: PItemIDList);
var
  ShellExecuteInfo: TShellExecuteInfo;
begin
    try
      with ShellExecuteInfo do
      begin
        cbSize       := sizeof(TShellExecuteInfo);
        fMask        := SEE_MASK_INVOKEIDLIST;
        wnd          := Handle;
        lpVerb       := '';
        lpFile       := nil;
        lpParameters := '';
        lpDirectory  := '';
        nShow        := SW_SHOWNORMAL;
        hInstApp     := 0;
        lpIDList     := AItemIDList;
        lpClass      := nil;
        hkeyClass    := 0;
        dwHotKey     := 0;
        hIcon        := 0;
      end;
      ShellExecuteEx(@ShellExecuteInfo);
    finally
    end;
end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る