この発言は
#00377　ヒシアマゾン    さんの[D3]InternetShortcut関係:[注]長文
に対するコメントです



修正です。(^^; (^^;

>function GetInterface(out purl: IUniformResourceLocator; 
>                      out ppf: IPersistFile): HResult;
>var
>  UnknownObject: IUnknown;
>begin
>  Result:= E_OUTOFMEMORY;
>  UnknownObject:= CreateComObject(CLSID_InternetShortcut);
>  if not Assigned(UnknownObject) then exit;
>  purl:= UnknownObject as IUniformResourceLocator;
>  ppf := UnknownObject as IPersistFile;
>  if Assigned(purl) or Assigned(ppf) then
   if Assigned(purl) and Assigned(ppf) then
>    Result:= S_OK;
>end;

>procedure TForm1.Button2Click(Sender: TObject);
>var
>  SDir: pchar;
>begin
>  if (Edit1.text <> '') or (Edit2.text <> '') then
   if (Edit1.text <> '') and (Edit2.text <> '') then
>  begin
>    SDir:= AllocMem(MAX_PATH);
>    try
>      if SUCCEEDED(SHGetSpecialFolderPath(0, SDir, CSIDL_DESKTOPDIRECTORY, 
>                   False)) then
>      begin
>        Edit1.text:= SDir +'\'+ Edit1.text;
>        if  SUCCEEDED(SetUrlFromIntShortcut(Edit1.text, Edit2.text)) then
>          Edit3.text:= 'SUCCEEDED' else
>          Edit3.text:= 'FAILED';
>      end;
>    finally
>      FreeMem(SDir);
>    end;
>  end;
>end;

でわ〜でわ〜
                                   by ヒシアマゾン
                                   BXC05221@niftyserve.or.jp
                                   ken_fu@mx4.meshnet.or.jp

Original document by ヒシアマゾン    氏 ID:(BXC05221)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。