圣
圣哥
Unregistered / Unconfirmed
GUEST, unregistred user!
用过一些函数，但是只能得到当前一个文件的路径，其他的路径我怎么得到？谢了！！！！
T
tseug
Unregistered / Unconfirmed
GUEST, unregistred user!
转贴一个, 参考一下吧<br><br>unit Find_Unit;<br><br>interface<br><br>uses<br> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,<br> StdCtrls, TLHelp32, ComCtrls;<br><br>type<br> TProcessInfo=Record<br> ExeFileName:String;<br> ProcessID
Word;<br> end;<br><br>type<br> TFindForm = class(TForm)<br> Button1: TButton;<br> Edit1: TEdit;<br> Edit2: TEdit;<br> SB: TStatusBar;<br> Label1: TLabel;<br> Label2: TLabel;<br> procedure Button1Click(Sender: TObject);<br> function findthread(threadname:string):boolean;<br> private<br> { Private declarations }<br> public<br> { Public declarations }<br> end;<br><br>var<br> FindForm: TFindForm;<br><br>implementation<br><br>{$R *.DFM}<br><br>procedure TFindForm.Button1Click(Sender: TObject);<br>var hfile:thandle; r:boolean; tf:string;<br>begin<br> r:=false; //查找空间变量是否存在 eg: in win2000 "cdrom0" is a space value<br> hfile:=createfile(pchar(edit1.Text),Generic_Read or<br> Generic_Write,File_Share_Read or File_Share_Write,<br> nil,Open_Existing,File_Attribute_Normal,0);<br> if hfile<>Invalid_Handle_Value then<br> begin<br> CloseHandle(hfile);<br> r:=true;<br> end;<br> if r then sb.Panels[0].Text:='Space Find!' else sb.Panels[0].Text:='Space Not Found!';<br> tf:=edit2.text;<br> if pos('.',tf)=0 then tf:=tf+'.exe';<br> if findthread(tf) then sb.Panels[1].Text:='Thread Find!' else sb.Panels[1].Text:='Thread Not Found!';<br>end;<br><br>function TFindForm.findthread(threadname: string): boolean;<br>var //关键的过程<br> p:TProcessInfo;<br> OK:Bool;<br> ProcessListHandle:THandle;<br> ProcessStruct:TProcessEntry32;<br>begin<br> result:=false;<br> ProcessListHandle:=CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS,0);<br> ProcessStruct.dwSize:=SizeOf(ProcessStruct);<br> OK:=Process32First(ProcessListHandle,ProcessStruct);<br> while Integer(OK)<>0 do<br> begin<br> p.ExeFileName:=ProcessStruct.szExeFile;<br>// p.ProcessID:=ProcessStruct.th32ProcessID;<br> OK:=Process32Next(ProcessListHandle,ProcessStruct);<br> if uppercase(p.ExeFileName)=uppercase(threadname) then begin result:=true; exit; end;<br> end;<br> closehandle(ProcessListHandle); <br>end;<br><br>end.<br><br><br><br>
Word;<br> end;<br><br>type<br> TFindForm = class(TForm)<br> Button1: TButton;<br> Edit1: TEdit;<br> Edit2: TEdit;<br> SB: TStatusBar;<br> Label1: TLabel;<br> Label2: TLabel;<br> procedure Button1Click(Sender: TObject);<br> function findthread(threadname:string):boolean;<br> private<br> { Private declarations }<br> public<br> { Public declarations }<br> end;<br><br>var<br> FindForm: TFindForm;<br><br>implementation<br><br>{$R *.DFM}<br><br>procedure TFindForm.Button1Click(Sender: TObject);<br>var hfile:thandle; r:boolean; tf:string;<br>begin<br> r:=false; //查找空间变量是否存在 eg: in win2000 "cdrom0" is a space value<br> hfile:=createfile(pchar(edit1.Text),Generic_Read or<br> Generic_Write,File_Share_Read or File_Share_Write,<br> nil,Open_Existing,File_Attribute_Normal,0);<br> if hfile<>Invalid_Handle_Value then<br> begin<br> CloseHandle(hfile);<br> r:=true;<br> end;<br> if r then sb.Panels[0].Text:='Space Find!' else sb.Panels[0].Text:='Space Not Found!';<br> tf:=edit2.text;<br> if pos('.',tf)=0 then tf:=tf+'.exe';<br> if findthread(tf) then sb.Panels[1].Text:='Thread Find!' else sb.Panels[1].Text:='Thread Not Found!';<br>end;<br><br>function TFindForm.findthread(threadname: string): boolean;<br>var //关键的过程<br> p:TProcessInfo;<br> OK:Bool;<br> ProcessListHandle:THandle;<br> ProcessStruct:TProcessEntry32;<br>begin<br> result:=false;<br> ProcessListHandle:=CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS,0);<br> ProcessStruct.dwSize:=SizeOf(ProcessStruct);<br> OK:=Process32First(ProcessListHandle,ProcessStruct);<br> while Integer(OK)<>0 do<br> begin<br> p.ExeFileName:=ProcessStruct.szExeFile;<br>// p.ProcessID:=ProcessStruct.th32ProcessID;<br> OK:=Process32Next(ProcessListHandle,ProcessStruct);<br> if uppercase(p.ExeFileName)=uppercase(threadname) then begin result:=true; exit; end;<br> end;<br> closehandle(ProcessListHandle); <br>end;<br><br>end.<br><br><br><br>
D
doxpix
Unregistered / Unconfirmed
GUEST, unregistred user!
我来贴一个——<br>_____________________________________________________________________________<br>由窗口句柄获得对应可执行文件名 <br>John Mollll<br><br><br>摘 要：由窗口句柄获得对应可执行文件名<br>关键字：句柄<br>类 别：系统控制<br> <br> <br>下面这个函数将根据窗口句柄参数返回相应程序的可执行文件名和路径。<br><br>function GetAppName(hwindow: HWND): string; <br>var <br> h : HMODULE; <br>begin <br> SetLength(Result, 100); <br> h:=GetClassLong(hwindow, GCL_HMODULE); <br> GetModuleFileName(h, PChar(Result), 100); <br>end; <br><br><br>用法： ShowMessage(GetAppName(FindWindow('notepad.exe', nil)));<br><br>投稿人：hubdog 投稿日期：2001-7-10 12:49:00 <br> <br> <br><br><br><br>本文共有评论3篇︱已被阅读过385次︱查看评论<br>_____________________________________________________________________________<br>
P
pingbaoshi
Unregistered / Unconfirmed
GUEST, unregistred user!
Process32First<br>Process32Next
杰
杰克
Unregistered / Unconfirmed
GUEST, unregistred user!
观注
K
keiven
Unregistered / Unconfirmed
GUEST, unregistred user!
uses TLHelp32;<br><br>type<br> TProcessInfo=Record<br> ExeFile:String;<br> ProcessIDword;<br>end;<br> pProcessInfo=^TProcessInfo;<br><br>function killexe(winpath:string):boolean;<br>var<br>p
ProcessInfo;<br>ContinueLoop:Bool;<br>FSnapshotHandle,hProcess:THandle;<br>FProcessEntry32:TProcessEntry32;<br>n:integer;<br> begin<br> New(p);<br> FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);<br> FProcessEntry32.dwSize:=Sizeof(FProcessEntry32);<br> ContinueLoop:=Process32First(FSnapshotHandle,FProcessEntry32);<br> while integer(ContinueLoop)<>0 do<br> begin<br> p.ProcessID := FProcessEntry32.th32ProcessID;//获得进程ID<br> p.ExeFile:=FProcessEntry32.sZExeFile;//获得进程程序名<br> if SameText(p.ExeFile,winpath) then TerminateProcess(OpenProcess(PROCESS_TERMINATE,BOOL(0),p.ProcessID),0);//一但相等就KILL掉<br> Continueloop:=process32next(fsnapshothandle,fprocessentry32);<br> end;<br> end;
word;<br>end;<br> pProcessInfo=^TProcessInfo;<br><br>function killexe(winpath:string):boolean;<br>var<br>pProcessInfo;<br>ContinueLoop:Bool;<br>FSnapshotHandle,hProcess:THandle;<br>FProcessEntry32:TProcessEntry32;<br>n:integer;<br> begin<br> New(p);<br> FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);<br> FProcessEntry32.dwSize:=Sizeof(FProcessEntry32);<br> ContinueLoop:=Process32First(FSnapshotHandle,FProcessEntry32);<br> while integer(ContinueLoop)<>0 do<br> begin<br> p.ProcessID := FProcessEntry32.th32ProcessID;//获得进程ID<br> p.ExeFile:=FProcessEntry32.sZExeFile;//获得进程程序名<br> if SameText(p.ExeFile,winpath) then TerminateProcess(OpenProcess(PROCESS_TERMINATE,BOOL(0),p.ProcessID),0);//一但相等就KILL掉<br> Continueloop:=process32next(fsnapshothandle,fprocessentry32);<br> end;<br> end;