Delphi determines whether the file is a URL shortcut

From , 5 Years ago, written in Delphi (Object Pascal), viewed 225 times.

URL https://pastebin.vip/view/220787ad

function IsURLShortcut(const ShortcutFile: string): Boolean;
var
  Ini: IniFiles.TIniFile; // used to read ini files
begin
  // File must exist
  if SysUtils.FileExists(ShortcutFile) then
  begin
    // Open ini file and check value exists
    Ini := IniFiles.TIniFile.Create(ShortcutFile);
    try
      Result := Ini.SectionExists('InternetShortcut')
        and Ini.ValueExists('InternetShortcut', 'URL')
        and (Ini.ReadString('InternetShortcut', 'URL', '') <> '');
    finally
      Ini.Free;
    end;
  end
  else
    Result := False;
end;
//delphi/2218

Reply to "Delphi determines whether the file is a URL shortcut"

Here you can reply to the paste above

Author What's your name?

Title Give your paste a title.

Language What language is your paste written in?

Your paste Paste your paste here

Create Shorturl Create a shorter url that redirects to your paste?

Private Private paste aren't shown in recent listings.

Delete After When should we delete your paste?

Spam protection Type in the letters

https://burned.cc - Burn After Reading Website

Pastebin.vip

Delphi determines whether the file is a URL shortcut

Reply to "Delphi determines whether the file is a URL shortcut"