| Kaf Dağı | 27 Mart 2015 15:15 |
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 ') ;
| 