윈도우 익스플로러(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;
