- くだすれDelphi(超初心者用)その57 [無断転載禁止]©2ch.net
450 :デフォルトの名無しさん[]:2018/02/02(金) 16:54:03.50 ID:MJtWQFFO - どうしても分からないため、教えてください。
アプリとしては、D&DでFoamに落としたときにTListboxにカレントフォルダのファイルを列挙します。 とんちんかんなメソッドでもとかもか構わないので、是非ともお願いいたします。 procedure TForm1.FormCreate(Sender: TObject); begin DragAcceptFiles(Handle, TRUE); end; procedure TForm1.FormDestroy(Sender: TObject); begin DragAcceptFiles(Handle, FALSE); end; procedure TForm1.FilesDropped(var Msg1: TWMDropFiles); var FNameSize: UINT; Count: UINT; FileName: array [0 .. 255] of Char; FileName1: string; LFilesList: TStringDynArray; LFileName: String; begin FileName1 := '';
| - くだすれDelphi(超初心者用)その57 [無断転載禁止]©2ch.net
451 :デフォルトの名無しさん[]:2018/02/02(金) 16:54:26.34 ID:MJtWQFFO - try
Count := DragQueryFile(Msg1.Drop, $FFFFFFFF, nil, 0); // A if Count > 1 then Abort; // B FNameSize := DragQueryFile(Msg1.Drop, 0, nil, 0) + 1; // C DragQueryFile(Msg1.Drop, 0, FileName, FNameSize); // D FileName1 := StrPas(FileName); // E finally DragFinish(Msg1.Drop); // F end; if FileName1 = '' then Exit; Label1.Caption := FileName1; DirName := ExtractFileDir(FileName1); Label2.Caption := DirName; begin // APath内のディレクトリ内のファイルリスト作成 // [マイコンピュータ]等の特殊フォルダは指定しても無効 LFilesList := TDirectory.GetFiles(LDir); for LFileName in LFilesList do begin ListBox1.Items.Add(TPath.GetFileName(LFileName)); end; ListBox1.Items.EndUpdate; end; end;
|
|