喫茶XRAYトップページ

[スレッド全体]
[5673] Re4:DirectoryExistsの動作について返信　削除
2012/1/23 (月) 22:53:11 Sara
みなさん　こんばんは。

ちょっと、関数をこしらえてみました。

function FolderExists(Value : String):Boolean;
var
  P: PWideChar;
  NewPIDL: PItemIDList;
  Flags,
  NumChars: LongWord;
  sf : IShellFolder;
begin
  Result := False;
  NumChars := Length(Value);
  Flags := 0;
  P := StringToOleStr(Value);
  try
    SHGetDesktopFolder(sf);
    Result := Succeeded(sf.ParseDisplayName(0, nil, P, NumChars, NewPIDL, Flags));
  except
    on EOleSysError do exit;
  end;
end;

これなら、期待どおりの動作をするようですが、どうなんでしょう？

やっていることに問題がなければ、こちらを使おうかと・・・

添削をお願いいたします。m(_ _)m
[5674] Re5:DirectoryExistsの動作について返信　削除
2012/1/23 (月) 23:00:38 Mr.XRAY
▼ Saraさん

なるほど，項目識別子というわけですか．
Saraさんの常用バージョンって，Delphi 2010でしたっけ．
常連さんのバージョンを把握しきれていない! スンマセン．

[5675] Re6:DirectoryExistsの動作について返信　削除
2012/1/23 (月) 23:17:14 Sara
▼ Mr.XRAYさん
 
> なるほど，項目識別子というわけですか．
> Saraさんの常用バージョンって，Delphi 2010でしたっけ．
> 常連さんのバージョンを把握しきれていない! スンマセン．

おっと　失礼しました。

環境を書くのをすっかり失念していましたね・・・(^^;

Windows7 64Bit　＋　Delphi XE2がデフォルトです。

たまにWindowsXP ＋ Delphi2007のときもあります・・・
[5676] Re7:DirectoryExistsの動作について返信　削除
2012/1/24 (火) 00:26:30 Mr.XRAY
▼ Saraさん

> 環境を書くのをすっかり失念していましたね・・・(^^;

いえ，別に関係ないんですけど．(^^;

> Windows7 64Bit　＋　Delphi XE2がデフォルトです。

えっ，何時の間に...
コードですけど，ちょっと気になるところがあったので，後で確認させて
ください．
動作には関係ないことなんですが...

[5678] Re8:DirectoryExistsの動作について返信　削除
2012/1/24 (火) 09:08:58 Sara
▼ Mr.XRAYさん

> > Windows7 64Bit　＋　Delphi XE2がデフォルトです。
>
> えっ，何時の間に...

ん？　[5328] XE2 バージョン情報の取得にて
のあたりからですが？(^^;

> コードですけど，ちょっと気になるところがあったので，後で確認させて
> ください．
> 動作には関係ないことなんですが...

お手数をおかけします。m(_ _)m
[▼次のスレッド]
INCM/CMT
Cyclamen v3.82