아래에서 C: 가 아니라
바탕화면에 만들려면 어떻게 하죠?
강의실에 COM 으로 특수폴더 지정방법 있던데요..
COM을 할줄몰라서요.. ->ActiveXForm 에도 되나요?


procedure CreateURLShortCut(const Path, url, Title: string;
    const IconFile: string = ''; const IconIndex: string = '');
var
  FilePath: string;
  urlFile: TextFile;
begin
    FilePath := Path
    if FilePath[Length(FilePath)] <> '\' then
        FilePath := FilePath + '\';
    if not DirectoryExists(FilePath) then
        ForceDirectories(FilePath);
    try
        AssignFile(URLFile, FilePath + Title + '.url');
        Rewrite(urlFile);
        WriteLn(urlFile, '[DEFAULT]');
        WriteLn(URLFile, 'BASEURL=' + url);
        WriteLn(urlFile, '[InternetShortcut]');
        WriteLn(URLFile, 'URL=' + url);
        if IconFile <> '' then
            WriteLn(urlFile, 'IconFile=' + IconFile);
        if IconIndex <> '' then
            WriteLn(urlFile, 'IconIndex=' + IconIndex);
    finally
        Closefile(urlFile);
    end;
end;

procedure TfrmMain.Button1Click(Sender: TObject);
begin
    CreateurlShortCut('C:\', 'http://www.delphi.co.kr', '한국 델파이 개발자 홈페이지');
    CreateurlShortCut('C:\', 'http://www.delphikorea.com', '델파이 코리아', 'http://www.delphikorea.com/favicon.ico', '1');
end;