Delphi2009でドラッグアンドドロップを使う。
http://melander.dk/delphi/dragdrop
だと2009がバツマークがついている。
メーリングリストで質問して教えてもらったのだけど、Development Snapshot版であれば2009にも対応している。
http://melander.dk/articles/dragdropsnapshot200902
中国語やハングルでも問題なく使えるらしい。
procedure TForm1.DropFileTarget1Drop(Sender: TObject; ShiftState: TShiftState; APoint: TPoint; var Effect: Integer); var FileName: String; Item: TListItem; begin ListView1.Clear; for FileName in DropFileTarget1.Files do begin Item := ListView1.Items.Add; Item.Caption := FileName; end; end;