IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

internet kısayolu oluşturma kodu

Kod:

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 ') ;