del,rmdirなどのコマンドの操作について (ID:37748)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんなの？ var cmd: string; StartupInfo: TStartupInfo; ProcessInfo: TProcessInformation; begin FillChar(StartupInfo, SizeOf(TStartupInfo), 0); StartupInfo.cb := SizeOf(TStartupInfo); //コマンドプロンプトウィンドウを非表示に StartupInfo.dwFlags := StartF_UseShowWindow; StartupInfo.wShowWindow := SW_Hide; //ＤＯＳのコマンドを実行 cmd := 'command.com /c dir > c:\temp.txt'; if CreateProcess(nil, PChar(cmd), nil, nil, False, 0, nil, 'c:\', StartupInfo, ProcessInfo) then begin WaitForSingleObject(ProcessInfo.hProcess, Infinite); CloseHandle(ProcessInfo.hProcess); end; end;