안녕하세요. 최용일입니다.

열어보시면 그냥 텍스트 파일입니다. 텍스트 파일처럼 쓰세요...

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;

^^ 항상 즐코하세요...