마음의 안정을 찾기 위하여 - 클립보드상의 파일이름(파일목록) 얻어오기.
2266325
662
804
관리자새글쓰기
태그위치로그방명록
별일없다의 생각
dawnsea's me2day/2010
색상(RGB)코드 추출기(Color...
Connection Generator/2010
최승호PD, '4대강 거짓말 검...
Green Monkey**/2010
Syng의 생각
syng's me2DAY/2010
천재 작곡가 윤일상이 기획,...
엘븐킹's Digital Factory/2010
클립보드상의 파일이름(파일목록) 얻어오기.
Delphi | 2007/12/10 10:03

윈도우 익스플로러(Explorer/탐색기)등에서 파일을 복사하고자 할때, 내 프로그램에서 어떻게 파일 복사를 구현할 수 있을까?

클립보드상에 저장되어 있는 파일 이름을 가져오는 루틴을 알아보자!!!

uses
   clipbrd, shellapi;

procedure TForm1.Button1Click(Sender: TObject) ;
var
   f: THandle;
   buffer: Array [0..MAX_PATH] of Char;
   i, numFiles: Integer;
begin
   Clipboard.Open;
   try
     f:= Clipboard.GetAsHandle( CF_HDROP ) ;
     If f <> 0 Then Begin
       numFiles := DragQueryFile( f, $FFFFFFFF, nil, 0 ) ;
       memo1.Clear;
       for i:= 0 to numfiles - 1 do begin
         buffer[0] := #0;
         DragQueryFile( f, i, buffer, sizeof(buffer)) ;
         memo1.lines.add( buffer ) ;
       end;
     end;
   finally
     Clipboard.close;
   end;
end;



2007/12/10 10:03 2007/12/10 10:03
Article tag list Go to top
View Comment 0
Trackback URL :: 이 글에는 트랙백을 보낼 수 없습니다
 
 
 
 
: [1] ... [665][666][667][668][669][670][671][672][673] ... [1317] :
«   2024/03   »
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31            
전체 (1317)
출판 준비 (0)
My-Pro... (41)
사는 ... (933)
블로그... (22)
My Lib... (32)
게임 ... (23)
개발관... (3)
Smart ... (1)
Delphi (93)
C Builder (0)
Object... (0)
VC, MF... (10)
Window... (1)
Open API (3)
Visual... (0)
Java, JSP (2)
ASP.NET (0)
PHP (5)
Database (12)
리눅스 (29)
Windows (25)
Device... (1)
Embedded (1)
게임 ... (0)
Web Se... (2)
Web, S... (21)
잡다한... (6)
프로젝트 (0)
Personal (0)
대통령... (13)
Link (2)