unit testShortcutFile;

interface

uses
  SysUtils,
  XPtest,
uses_end;

procedure testTShortcutFile;

implementation

uses
  Windows,
//  SysUtils,
  ShortcutFile,
  FileNameUnit,
  SystemUnit,
end_uses;

//(*--▽---------------------------▼--
//テストコード
//※%User%にはログイン名を記述すること
//※TClockがインストールしてスタートアップに入っている状態で
//  テストすることにする
procedure testTShortcutFile;
var
  ShortcutFile: TShortcutFile;
  Value: String;
begin
  ForceDirectories('C:\Temp');
  CreateShortcutFile(ParamStr(0), 'C:\Temp\TestApplitation.lnk', '', 'C:\Temp');

  ShortcutFile := TShortcutFile.Create(
    'C:\Temp\TestApplitation.lnk');

  Check(ParamStr(0), GetLongFileName(ShortcutFile.LinkFileName));
  Check('C:\Temp', ShortcutFile.WorkDir);
  ApiMsgBox(0, ShortcutFile.LinkFileName, '', MB_OK);
  ApiMsgBox(0, ShortcutFile.WorkDir, '', MB_OK);

  ShortcutFile.Free;

  Value := ShortCutFileExists(
    'C:\Temp', ParamStr(0));

  Check('C:\Temp\TestApplitation.lnk', Value);
  ApiMsgBox(0, Value, '', MB_OK);

  DeleteFile('C:\Temp\TestApplitation.lnk');

  Value := ShortCutFileExists(
    'C:\Temp', ParamStr(0));

  Check('', Value);
  ApiMsgBox(0, Value, '', MB_OK);
end;
//--▲---------------------------△--*)


end.