TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼
オブジェクト指向の活用方法を教えて下さい
Access VBA 質問スレ Part2
学ぶ言語は「広く浅く」か「狭く深く」のどっちか
Google App Engine for java
【マウスだけで】Scratch【プログラミング】その1
MSX-BASICの奥義を伝授するスレ
Excel VBA 質問スレ Part64
【統計分析】機械学習・データマイニング28
ふらっと C#,C♯,C＃（初心者用） Part147
■特許庁新システムを作る■
462 ：
ちょっと長いのですが…

procedure TForm1.FilesDropped(var Msg1: TWMDropFiles);
var
FNameSize: UINT;
Count: UINT;
FileName: array [0 .. 255] of Char;
FileName1: string;
LFilesList: TStringDynArray;
LFileName: String;
str : string;

463 ：
begin
FileName1 := '';
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;
DirName := ExtractFileDir(FileName1);
Label2.Caption := FileName1; // ファイル名
Label3.Caption := DirName; // フォルダーパス\なし

464 ：
begin
//選択されているときに処理を行う
if ListBox1.ItemIndex > -1 then
begin
//選択している文字列を取得
str := ListBox1.Items[ListBox1.ItemIndex];
//取得した文字列を追加
ListBox1.Items.Add(str);
end;

Label4.Caption := str;
begin
// APath内のディレクトリ内のファイルリスト作成
// [マイコンピュータ]等の特殊フォルダは指定しても無効
LFilesList := TDirectory.GetFiles(DirName);
for LFileName in LFilesList do
begin
ListBox1.Items.Add(TPath.GetFileName(LFileName));
end;
ListBox1.Items.EndUpdate;

end;
end;

465 ：
procedure TForm1.PlayBtnClick(Sender: TObject);
var
FileName1: string;
begin
mciSendString(PChar('open"' + FileName1 + '"type MEPGVideo' + 'alias MusicFile'), nil, 0, 0);
// ~~~~~~~~~~~
mciSendString(PChar('play Musicfile from 0'), nil, 0, 0);
end;

上記のチルダの部分あたりだと思うのですが…
どうしてもわかりません。

家計簿ソフトを作る
GCCについて part10
英語の技術書読めちゃうプログラマ
Visual Studio 2019 Part2
Visual Studio 2013 SP8
Vue vs React vs Angular Part.3
【分散型バージョン管理】 Mercurial 2【hg】
NetBeans Part7
Regular Expression(正規表現) Part15
【GNU】スクリプト言語 Guile【scheme】
--------------------
LINE ディズニーツムツム ★113
実質13278
(･x・)うさぎの小さいものクラブ(＾ω＾)月光町32
AMAZON MUSIC HD
白手スレPart3
中国人「なぜ日本人は電車で寝たりスマホでゲームSNSしてるんですか？勉強しないんですね…」
ハーメルンについて語るスレ596
【朝鮮日報】トランプ大統領にとって韓国は「最も米国につけこむ国」？ティラーソン氏「大統領の目には韓国は(同盟の中で)最悪」[10/30]
【Switch】牧場物語 再会のミネラルタウン Part3
【動画】とんでもないピッチング動画がtiktokにアップされるwwywwywwywwywwywwywwy [605365571]
【東大王】◆天才・鶴崎修功◆ 【IQ165の天然】
【FM補完】AM局のFM化 総合 43局目【ワイドFM】
【無印の】キン肉マン219【旧作専用】
船橋オフ14【西・新・東・南】
山形のいい加減そろそろほぼ飽きた音ゲー事情第7話
【議実・衆】本日のMVP【政治家で最低の人】第4回
■■金沢にあるKIDIって専門学校知ってる？■■
『お客様の』多摩信用金庫『幸せづくり』
アベノマスクは歴史に名を遺した
ジ・オープンを一緒に観るオフ
TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼