معرفة إذا ما كان البرنامج يشتغل من الإختصار أو من مسار آخر

[أبو معاذ]

وعليكم السلام
معرفة إذا تم تشغيل من إختصار أو لا

PHP كود :

// https://stackoverflow.com/questions/36267584/delphi-where-is-the-shortcut-that-started-the-application

program GetShortCutTest;

{$APPTYPE CONSOLE}

uses
  Windows;

const
  STARTF_TITLEISLINKNAME = $800;

function GetShortcutName(out LinkName: string): Boolean;
var
  si: TStartupInfo;
begin
  Result := False;
  FillChar(si, SizeOf(TStartupInfo), 0);
  GetStartupInfo(si);
  if (si.dwFlags and STARTF_TITLEISLINKNAME) <> 0 then
  begin
    Result := True;
    LinkName := PChar(si.lpTitle);
  end;
end;

var
  sLink: string;

begin
  if GetShortcutName(sLink) then
    WriteLn('Shortcut: ' + sLink)
  else
    WriteLn('Not run from shortcut.');

  ReadLn;
end.

جزاك الله خيرا على المشاركة،
لقد رأيت هذا الكود من قبل ، لكننه لم يشتغل معي في دلفي 7