掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ファイルへ書き込むには？ (ID：2699)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
たかみちえさん、にしのさん、ありがとうございます。 procedure TForm1.Button1Click(Sender: TObject); var FileHandle: Integer; Str: String; begin FileHandle := 0; try FileHandle := FileCreate('C:\test.bat'); //ファイル作成 Str := 'ipconfig/all > C:\test.txt'; FileWrite(FileHandle,PChar(Str)^,(Length(Str))); //Sleep(100); ShellExecute(FileHandle, 'open', 'C:\test.bat', nil, nil, SW_SHOW); //起動 finally FileClose(FileHandle); //ファイル閉じる //DeleteFile('C:\test.bat'); //ファイル削除 end; end; test.batを作成して起動させ、'test.txt'を作り、 test.batを削除しようとしているのですが、'test.txt'が作成されません。 test.batは作成され、手動で起動させるとちゃんと'test.txt'を作成します。 test.batが作成される前に起動させているとかなのでしょうか？ どうぞよろしくお願いします。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.