internet kısayolu oluşturma kodu

uses IniFiles;
    ...
    procedure CreateInternetShortcut(const FileName, ********URL : string) ;
    begin
      with TIniFile.Create(FileName) do
      try
        WriteString(
           'InternetShortcut',
           'URL',
           ********URL) ;
      finally
        Free;
      end;
    end; (*CreateInterentShortcut*)
 
Örnek kullanımı:
 
    //create an .URL file named "About Delphi Programming"
    //in the root folder of the C drive
    //let it point to http://delphi.about.com
    CreateInterentShortcut('c:\About Delphi Programming.URL ', 'http://delphi.about.com ') ;