Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[666] [답변] GODORI67/TreeView에 s"내컴퓨터"를 나타나게 할
yunjeong [ ] 2310 읽음    1998-01-13 00:11
음...
답변이라기 보다는... 저도 그 문제로 고민좀 했었는데...
분명 가능합니다. 하지만 좀 까다로운 몇가지 문제를
해결해야 하죠...
암튼...
SHGetSpecialFolderLocation 라는 API 함수가 있습니다.
이 함수를 잘 사용하시면 쉽게 구현하실 수도 있죠...
간단히 이 함수를 이용한 예제를 만들어 봤습니다.
참고하세요...
uses
  ActiveX, ShellAPI, ShlObj;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  ppidl      : PItemIDList;
  lpExecInfo : TShellExecuteInfo;
  ppMalloc   : IMalloc;
begin
  if SUCCEEDED ( SHGetMalloc ( ppMalloc ) )  
    then if SUCCEEDED ( SHGetSpecialFolderLocation ( 0,
                                                     CSIDL_DRIVES,
                                                     ppidl ) )
           then begin
                  with lpExecInfo do
                    begin
                      cbSize   := SizeOf ( TShellExecuteInfo );
                      fMask    := SEE_MASK_IDLIST;
                      lpVerb   := 'open';
                      nShow    := SW_NORMAL;
                      lpIDList := ppidl;
                    end;
                  ShellExecuteEx ( @lpExecInfo );
                  ppMalloc.Free ( ppidl );
                end
           else {}
    else begin
           ppMalloc._Release;
           ppMalloc := nil;
         end;
end;

end.    



+ -

관련 글 리스트
666 [답변] GODORI67/TreeView에 s"내컴퓨터"를 나타나게 할 yunjeong 2310 1998/01/13
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.