|
初めておじゃまします。教えて下さい。現在以下のコードで
フォルダを開いています。これはうまく言っています。
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;
逆にこれをコードで閉じるにはどうすればいいのでしょうか？
よろしくお願いいたいます。
|
