名前
題名
▼ 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
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link