Delphi：アプリケーションを起動したショートカットはどこですか？

Question

私は、現在の実行可能ファイルが置かれているディレクトリは、Application.Exenameを使用して見つけることができます。

しかし、別のディレクトリのショートカットを使用してアプリケーションを起動したときは、ショートカットがあるディレクトリのアドレスを見つけることはできますか？そこにいくつかのファイルを作成したいのですか？

XE2の使用。どうもありがとう。

Answer 1

あなたはSTARTF_TITLEISLINKNAMEフラグ付きでGetStartupInfoを使用していることを行うことができます。

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 := si.lpTitle; 
    end; 
end; 

テストコード（XE8とDelphi 10シアトルでWin7の64でテスト - Win8上でテストまたは10ではない）：

program GetShortCutTest; 

{$APPTYPE CONSOLE} 

uses 
    System.SysUtils, 
    Windows; 

var 
    sLink: string; 

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

    ReadLn; 
end. 

テストアプリケーション（「ショートカットから実行しない」と表示されます）を実行し、テストアプリケーションへのショートカットを作成し、そのショートカットを実行することでテストできます（ 'ショートカット：'と。 lnkファイル）。