名前
題名
▼ ponさん > 初めておじゃまします。教えて下さい。現在以下のコードで > フォルダを開いています。これはうまく言っています。 > > procedure TForm1.OpenFdmFolder; > {=============================================================================== > 保存先を開く > ===============================================================================} > var > Si: TStartupInfo; > Pi: TProcessInformation; > bo: boolean; > Cmdline : string; > name : string; > begin > name := ExtractFilePath(Application.Exename) + '製品データ'; > if not DirectoryExists(name) then Mkdir(name); > Cmdline := '"' + 'Explorer.exe' + '" "' + ExtractFilePath(Application.ExeName) + '製品データ'; > GetStartupInfo(Si); > bo := CreateProcess(nil, > PChar(Cmdline), > nil, > nil, > False, > CREATE_DEFAULT_ERROR_MODE, > nil, > nil, > SI, > PI); > > end; > > 逆にこれをコードで閉じるにはどうすればいいのでしょうか？ > よろしくお願いいたいます。
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link