> > i-drive復活まだぁ(;´Д`)
> 自宅で鯖立ててi-driveみたいのってできないかな(´ー｀)

function TIdriveCtrl.GetMyShared(Referer: String): Boolean;
var
  URL: String;
begin
  SetMessage('ファイルリスト取得中');
  URL := Format('%s/%s/files/%s/', [IDRIVE_URL, m_account.UserName, IDRIVE_FOLDER[m_account.UseFolder]]);
  RestoreCookie;
  if GetPage('GET', URL, '', Referer) then
    Result := (CheckError(m_ErrorID[4]) = STRAGE_OK)
  else
    Result := false;
end;

参考：2005/11/07(月)02時09分35秒