uses
windows;
procedure showdllpath stdcall;
var
thefilename: array[0..max_path] of char;
begin
fillchar(thefilename, sizeof(thefilename), #0);
getmodulefilename(hinstance, thefilename, sizeof(thefilename));
messagebox(0, thefilename, 'the dll file name is:', mb_ok);
end;
2009-03-07 • Просмотров [ 2635 ]
