The GetModuleFileName function retrieves the full path and filename for the executable file containing the specified module.
procedure TForm1.Button1Click(Sender: TObject); var FileName: array[0..128] of Char; begin GetModuleFileName(hInstance, FileName, 128); Label1.Caption := FileName; end;