Delphi: Uygulamayı başlatan kısayol nerede?

Question

Geçerli yürütülebilir dosyanın bulunduğu dizinin Application.Exename kullanılarak bulunabileceğinin farkındayım.

Ancak, uygulama başka bir dizinde kısayol kullanılarak başlatıldığında? Bazı dosyaları oluşturmak istediğim kısayolun bulunduğu THAT dizininin adresini bulabilir miyim?

XE2'yi kullanma. Çok teşekkürler.

Answer 1

Sen STARTF_TITLEISLINKNAME bayrağıyla GetStartupInfo kullanarak da yapabilirsiniz:

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; 

Testi kodu (XE8 ve Delphi 10 Seattle ile Win7 64 üzerinde test - Win8 üzerinde test veya 10 değil):

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. 

Test uygulamasını ('Kısayoldan çalışmayan' gösterecek) test uygulamasını çalıştırarak ve ardından test uygulamasına bir kısayol oluşturup bu kısayolu yürüterek test edebilirsiniz (daha sonra 'Kısayol:' ifadesini ve bunun adını gösterir. lnk dosyası).