TWebRequest.TranslateURI()
你可以用hInstance作为参数来获取
GetModuleFileName
如下:
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
m: String;
begin
SetLength(m, 250);
GetModuleFileName(hInstance, PChar(m), 250);
m := PChar(m);
Response.Content := m;
end;