WordApp 问题【急】

jianth2005

我是想在用WordApp打开一个Word之前，先遍历一下进程，如果有Word进程就把它关了，如果没有就执行

jianth2005

关于在Delphi中关闭进程的代码
在X3中用不了啊？
该如何转换 ？

zfang

delphi的代码确实不能直接在x3中使用。你可以翻译一下试试
但是要注意，平台中不支持指针等。

jianth2005

帮我看看这段Delphi代码如何转换到X3中
-------------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
const
   PROCESS_TERMINATE = $0001;
var
   ContinueLoop: boolean;
   FSnapshotHandle: THandle;
   FProcessEntry32: TProcessEntry32;
   ExeFileName:String;
   myResult:integer;
begin
   myResult := 0;
   ExeFileName :='WinWord.exe';
   FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
   FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
   ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);

   while Integer(ContinueLoop) <> 0 do
   begin
   if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile))=UpperCase(ExeFileName))or(UpperCase(FProcessEntry32.szExeFile)=UpperCase(ExeFileName)))then
   myResult := Integer(TerminateProcess(OpenProcess(PROCESS_TERMINATE,BOOL(0),FProcessEntry32.th32ProcessID),0));
   ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
   end;
   CloseHandle(FSnapshotHandle);
end;

zfang

上面的代码在delphi6下可以用么？

amao800613

TWordApp.CreateApp在创建进程的时候会先直接获取存在word句柄，没有再生成句柄。在控件里面已经处理了。你还是检查一下外面的环境情况吧