教 教父 Unregistered / Unconfirmed GUEST, unregistred user! 2000-11-03 #2 可以直接用Delphi里的函数：Application.ExeName 得到完整的文件名。<br>至于API，不太清楚，不过，有必要吗？
W www Unregistered / Unconfirmed GUEST, unregistred user! 2000-11-03 #3 用Application.ExeName 就可以了<br>相关函数<br>extractfilepath<br>expandfilepath<br>extractfiledir<br>
I iamfly Unregistered / Unconfirmed GUEST, unregistred user! 2000-11-03 #4 你说想知道自己的程序名还是部上正在运行的所有程序的名？前者用教父的方法即可；后者<br>去WINAPI栏内在以前的已答问题中用“列出本机进程”或是“进程”搜索一下，有很多实例。<br>
H hlfrom331 Unregistered / Unconfirmed GUEST, unregistred user! 2000-11-03 #5 是程序自己的名字。别告诉我Application.exename,我必须用Api得到。
P pxie Unregistered / Unconfirmed GUEST, unregistred user! 2000-11-04 #7 好像有个GetModalName,现在没办法查资料,<br>你可以在Delphi/demos/中的ISAPI,CGI例子<br>中的初始化部份找一下,哪里面就是用这一个<br>函数得到EXE或DLL文件的名称的.
好像有个GetModalName,现在没办法查资料,<br>你可以在Delphi/demos/中的ISAPI,CGI例子<br>中的初始化部份找一下,哪里面就是用这一个<br>函数得到EXE或DLL文件的名称的.
U unreal Unregistered / Unconfirmed GUEST, unregistred user! 2000-11-04 #8 Application.ExeName 就是用Windows API实现的啊？你看看Application.ExeName的源码就知道了.<br>Application.ExeName根本就是调用GetCommandLine<br>GetCommandLine的结果用System.pas里的两个函数<br>GetParamStr<br>ParamStr<br>处理一下就是了。
Application.ExeName 就是用Windows API实现的啊？你看看Application.ExeName的源码就知道了.<br>Application.ExeName根本就是调用GetCommandLine<br>GetCommandLine的结果用System.pas里的两个函数<br>GetParamStr<br>ParamStr<br>处理一下就是了。
L lml Unregistered / Unconfirmed GUEST, unregistred user! 2000-11-06 #9 procedure TForm1.Button1Click(Sender: TObject);<br>var<br> ModuleFileName: array[0..255] of char;<br>begin<br> GetModuleFileName(HInstance,ModuleFileName,255);<br> ShowMessage(ModuleFileName);<br>end;
procedure TForm1.Button1Click(Sender: TObject);<br>var<br> ModuleFileName: array[0..255] of char;<br>begin<br> GetModuleFileName(HInstance,ModuleFileName,255);<br> ShowMessage(ModuleFileName);<br>end;
H honghs Unregistered / Unconfirmed GUEST, unregistred user! 2000-11-13 #10 lml的方法就是了<br> 先取得应用的handle,然后<br>var<br> ModuleFileName: array[0..255] of char;<br> <br> GetModuleFileNameA(handle,ModuleFileName,255)<br>
lml的方法就是了<br> 先取得应用的handle,然后<br>var<br> ModuleFileName: array[0..255] of char;<br> <br> GetModuleFileNameA(handle,ModuleFileName,255)<br>
