Code666 (代码贴、代码片段)

[Delphi (Object Pascal)] Delphi从一个url快捷方式获取url地址 →→→→→进入此内容的聊天室

来自 , 2020-12-19, 写在 Delphi (Object Pascal), 查看 114 次.
URL http://www.code666.cn/view/98664864
  1. function URLFromShortcut(const Shortcut: string): string;
  2. var
  3.   Ini: IniFiles.TIniFile; // object used to read shortcut file
  4. begin
  5.   // Return URL item from [InternetShortcut] section of shortcut file
  6.   Ini := IniFiles.TIniFile.Create(Shortcut);
  7.   try
  8.     try
  9.       Result := Ini.ReadString('InternetShortcut', 'URL', '');
  10.     except;
  11.       // We return '' on error
  12.       Result := '';
  13.     end;
  14.   finally
  15.     Ini.Free;
  16.   end;
  17. end;
  18. //delphi/2230

回复 "Delphi从一个url快捷方式获取url地址"

这儿你可以回复上面这条便签

captcha

贴代码片段 - Code666