如何获得当前应用的完整路径，GetModuleFileName好象不行？！

Question

FormMain.Caption:=getcurpath(application.Handle);
//获得当前应用程序所在路径
function getcurpath(hwnd_application:integer): string;
begin
  setlength(result,128);
  GetModuleFileName(hwnd_application, pchar(result), 128)
end;

Answer 1

第一个参数为０：
GetModuleFileName(0, pchar(result), 128)

Answer 2

var path :string;
begin
  path:=ExtractFilePath(Application.ExeName);

Answer 3

extractfilepath(application.exename);

Answer 4

>> 已知其他窗口的句柄，如何得到其他窗口所在的文件名呢？GetModuleFileName(GetWindowLong(hwnd, GWL_HINSTANCE), PChar(s), Length(s));

Answer 5

var currentdir
beging
getdir(0,currentdir);
showmessage(currentdir);
end;

Answer 6

谢谢 sysu ，下次回答我的问题时我多给分你！ 谢谢！！

Answer 7

extractfilepath(application.exename);